que tal!
Para conectar a una mdb de access:
Private cn As ADODB.Connection 'Para abrir bases de datos
Function ConectarMDB()
On Error GoTo Err
'Crear los objetos
Set cn = New ADODB.Connection
With cn
.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="Lugar de la base de datos";" & _
"Jet OLEDB:Database Password=password"
End With
Exit Function
Err:
MsgBox Err.Description & vbCrLf & Err.Number, vbExclamation, App.Title
End Function
y ahora para la consulta, modificación y eliminación de datos, consulta está web:
http://www.mundoprogramacion.com/vb/bases/ADO/indiceADO.htm