RE:conexion de base de datos
lo puedes hacer mediante un objeto de conexión. solo agrega la referencia al ado.conection
'declaración de la variable de conexion
Public acon_accessDB As New ADODB.Connection
'código a usar para realizar la conexión.
Set acon_accessDB = Nothing
Set acon_accessDB = New ADODB.Connection
With acon_accessDB
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Acuerdos_depurados.mdb"
.CursorLocation = adUseClient
.Open
End With