Dim dbs as Database
Dim rst职员 as Recordset
Dim qdf as QueryDef
set dbs=Open("d:\.....\职员档案.mdb")
set qdf=dbs.CreateQuqryDef("职员Query")
qdf.SQL="select 姓名,年龄,婚姻 from 职员基本情况"
set rst职员=dbs.OpenRecordset("职员Query")
Text1.text=rst职员.Fields("姓名")
主要是3,5,7句看不懂
各位帮忙弄个注解啊 谢谢