Visual Basic - Habrir BD Access97 con contraseña

Hola Amigos, Necesito proteger una BD access97 con contraseña, pero al tratar de habrirla me da un error, el el segmento Connection del OpenDataBase utilizo "ODBC;pwd=contraseña", y el error es el sigte: ODBC:error al conectar con "C:\basedatos.mdb", si alguien me puede ayudar lo agradeceria mucho.

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