RE:Visual basic 6 + access 2000 - III
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)
Todo lo anterior lo probé con Access 2000 y funcionó bastante bien, así que por sentido común, a tí también te debería resultar.
Cualquier duda, mándame un correo para ver si te puedo ayudar.
PD. Recuerda que en las referencias del proyecto, debes tener habilitada la librería de ADO (Microsoft ActiveX Data Objects 2.1 Library)