Dim MyConn_Access
Dim strSQL
Dim DBName
Dim TableName
Dim rsTemp

DBName = "D:\Test\Test.mdb"
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & DBName & ";" _
& "Mode=ReadWrite;Persist Security Info=False"
Set MyConn_Access = CreateObject("ADODB.Connection")
With MyConn_Access
.ConnectionString = strSQL
.CursorLocation = 3
.Open
End With

TableName = "MyTest"
strSQL = "Select * From " & TableName
Set rsTemp = CreateObject("ADODB.Recordset")
Set rsTemp.ActiveConnection = MyConn_Access
With rsTemp
.CursorLocation = 3 'adUseClient
.CursorType = 2 'adOpenDynamic
.LockType = 3 'adLockOptimistic
.Source = strSQL
.Open
End With

'操作记录集（插入、编辑、删除等）

rsTemp.Close
Set rsTemp = Nothing
MyConn_Access.Close
Set MyConn_Access = Nothing