Hola : Si no te funciona de la manera anterior prueba con lo siguiente
En el menu Proyecto, Referencias Cheque la Opcion " Microsoft Activex Data Objects 2.0 Library"
Abre un módulo de Clase y en la propiedad DataSourceBehavior selecciona vbDatasource para recuperar el Recordset en el formulario.
Agrega este código en el módulo:
Option Explicit
Private DB As New Connection
Private RS As New Recordset
Private Sub Class_Initialize()
Dim strSQL As String
Sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:EjemploErrores3.mdb;Mode=Read|Write|Share Deny None;Persist Security Info=False"
DB.Open Sconnect
Set RS = New Recordset
RS.CursorLocation = adUseClient
RS.Open (Tabla), Sconnect, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = Rs
End Sub
