Ahora ya puedes manipular el objeto DB. Para abrir una tabla puedes usar el siguiente código (Es el que yo uso y funciona bastante bien)
Public Function OpenRS(cSQL As String, DB as ADODB.Connection) As ADODB.Recordset
Dim CMD As ADODB.Command
Set CMD = New ADODB.Command
With CMD
Set .ActiveConnection = DB
.CommandText = cSQL
.CommandType = adCmdText
End With
Set OpenRS = New ADODB.Recordset
OpenRS.CursorType = adOpenForwardOnly
OpenRS.LockType = adLockReadOnly
OpenRS.CursorLocation = adUseClient
Set OpenRS.Source = CMD
OpenRS.Open
End Function
Puedes probarlo de la siguiente forma (Supongamos que tienes una tabla llamada "Tabla")
Dim RS As ADODB.Recordset
Set RS = OpenRS("Select * From Tabla", DB)
Debug.Print RS.Fields(0)
Espero que te resulte...
PD. Recuerda activar la referencia de ADO ("Microsoft ActiveX Data Objects 2.1 Library") dentro de tu proyecto