用vba怎么更新数据？

mes

有一表“人才库”其中有字段“姓名”“地址”“学历”。。。
如何用vba代码
先根据 当前的窗体的姓名，找到人才库的相应姓名的那条数据，
然后更新“地址”“学历”两字段，依据当前的窗体里的“地址”“学历”

请高手指教

lxh

制作一个更新按键comm.           '在工程中引用DAO.
sub comm_click()
dim db as database
dim qt as querydef
set db=currentdb
set qt=db.createquerydef("","update 人才库 set 地址="&"'"& 地址 & "'","学历="&"'"& 学历 & "'"& "where 姓名="&"'" & 姓名 & "'")
qt.execute
end sub