‘先在工程引用'MircosoftActiveXDataObjects
’然后写代码（前提是已经装好access）
DimrstempAsADODB.Recordset
DimstrCNNAsString,strSQLasString
Dimrecord1,record2
Setrstemp=NewADODB.Recordset
strCNN=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\kkk.mdb;PersistSecurityInfo=True;
strSQL=select*frommyTable'查询位于d:\kkk.mdb的access中的myTable表的所有记录
rstemp.OpenstrSQL,strCNN
'----------------------------------
'在这里插入你的代码，查询的结果已经读入到rstemp中了
‘假设kkk.mdb里的mytable表中有ID，Name这两个字段
ifnotrsbook.EOFthen'如果记录指针不在结束标记的位置，即如果表里面有记录，记录不为零的话
record1=rstemp.Fields(0)'字段ID的第一条记录的值
record2=rstemp.Fields(1)‘字段Name的第一条记录的值
rstemp.MoveNext‘移到下一条记录
record1=rstemp.Fields(0)'字段ID的第二条记录的值
record2=rstemp.Fields(1)‘字段Name的第二条记录的值
endif
’申此类推，可用循环来读取所有记录，只要判断rsbook.EOF标记是否为true就能知道是否已经到了结尾处
'----------------------------------
Setrstemp=Nothing
EndFunction