Primero tienes que agregar la referencia a "Microsoft ActiveX Data Objects 2.6 Library".
Luego tienes que poner el siguiente codigo
A nivel modulo define el objeto de coneccion
Public cn As ADODB.Connection 'Definicion
En inicio del menu puedes llamar a esta rutina
Sub ConectarAcess()
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & "C:\Ubicacion\" _
& "BaseDatos.mdb" & ";" _
& "Mode=Read|Write;" _
& "Persist Security Info=False"
.Open
End With
End Sub
Saludos desde Lima
