no quieres usar el activeX ADO o ADO en general?
Porque con ado en general es muy sencillo, creando un módulo donde se crea la conexión y el recordset.
Cita: Option Explicit
Public cnConexion As ADODB.Connection
Public rsRegistro As ADODB.Recordset
'Asignamos valores a la conexión.
Public Sub Conexion()
Set cnConexion = New ADODB.Connection
cnConexion.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; data source=jardineria.mdb"
cnConexion.CursorLocation = adUseClient
cnConexion.Open
End Sub
'Carga el recordset.
Public Function Cargar(sSource As String)
Set rsRegistro = New ADODB.Recordset
rsRegistro.ActiveConnection = cnConexion
rsRegistro.CursorType = adOpenDynamic
rsRegistro.LockType = adLockOptimistic
rsRegistro.Source = sSource
rsRegistro.Open
End Function