En Access para ponerle clave a la base tenes que ir a herramientas/seguridad/Establecer contraseña. Ojo que cuando le pones contraseña la tenes que abrir en modo exclusivo, fijate en abrir abajo hay un combo con cuatro modos.
Despues en visual sería algo así:
Dim strconnect As String
Dim db As Database
dim clave as string
ChDir App.Path
clave = "la clave que le das"
strconnect = ";DATABASE=db.mdb" & ";PWD=" & clave
On Error Resume Next
Set db = OpenDatabase("", False, False, strconnect)
If (Err.Number = 3024) Then
MsgBox ("La Base de datos no existe")
Exit Sub
End If
Las tablas se abren normalmente
Set rsOpc = db.OpenRecordset("tbl", dbOpenDynaset)
Tambien te cuento que le podes asignar la clave en tiempo de ejecución usando DAO. Saludos y suerte !!!
