‘先在工程引用"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
‘先在工程引用"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