RE:Habrir BD Access97 con contraseña
Hola Alvaro.
Puedes utilizar el Wizard para abrir un base con password que trae el visual basic. Se llama "Cuadro de Diálogo Inicio de Sesión".
Y pones lo siguiente en el Click del Botón "OK". Espero y te sirva de algo.
Private Sub cmdOK_Click()
On Error GoTo ErrorClave
Dim wrkEspacio As Workspace
Dim dbBase As Database
Dim recRegistro As Recordset
Set wrkEspacio = DBEngine.Workspaces(0)
Set dbBase = wrkEspacio.OpenDatabase("C:\MiBase\Base.mdb", False, False, ";pwd=" & txtClave.Text & "")
Set recRegistro = dbBase.OpenRecordset("Select [Tabla1].*,[Tabla2].* from [Tabla1],[Tabla2]")
recRegistro.LockEdits = False
LoginSucceeded = True
Unload Me
frmMenu.Show
Exit Sub
ErrorClave:
Select Case Err.Number
Case 3031
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtClave.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
Case Else
MsgBox "Descripción :" & Err.Description
Exit Sub
End Select
End Sub