Private Sub Form_Load()
Dim conn As Connection
Set conn = New Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Test.mdb;Persist Security Info=False"
Dim cmd As Command
Set cmd = New Command
Set cmd.ActiveConnection = conn
cmd.CommandText = "test"
Dim rs As Recordset
Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenDynamic, adLockBatchOptimistic