SoloCodigo

Gracias Carlos, voy a intentarlo

Muchas gracias por tu respuesta. Tienes Razon, tuve que encontrar la manera de seleccionar los registros que necesitaba para cada usuario usando WHERE.

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