Aceder a Una Base de Datos Con Contraseña

[GeoAvila]

tendrias que usar este codigo

Dim i As Integer
Dim db As Connection
dim BasePath as string
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset
db.CursorLocation = adUseClient
BasePath = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
db.Open BasePath
adoPrimaryRS.Open "select * from servicios order by id_servicio", db, adOpenStatic, adLockOptimistic
' donde Uid= Admin es el administrador el default y Pwd es la contraseña