SoloCodigo

Manejo mucho este código simple que realiza la conexión a la BD sin ADO, es "código puro",    pero al agregarle una contraseña a la base de datos no logro hacer que este código la abra.
La neta no se que es lo que le falta, donde poner la instrucción del Password, o si se debe de escribir de otra forma....  En fin no tengo idea de como va..
Si alguién me puede ayudar lo agradeceré mucho...
El código es el siguiente....


Private Sub Text1_Change()

Set BaseDatos = OpenDatabase(App.Path & "\bd1.mdb")
'************************************************
'      Como validar una Contraseña de la BD ???
'      Set BaseDatos = OpenDatabase(Password = edson)       <----
'                                                                              Obviamente así no es
'************************************************
Set Rs = BaseDatos.OpenRecordset("Select * From escuela")
 
 With Rs
  Dim BCadenay, B As Variant
  If Rs.RecordCount > 0 Then
   List8.Clear
   List9.Clear
   List10.Clear
   List11.Clear
   List1.Clear
   Rs.MoveFirst
   BCadenay = Len(Text2.Text)
   While Not Rs.EOF
    cadenay = Mid(Rs(1), 1, Len(Text2.Text))
     If UCase(cadenay) Like UCase(Text2.Text) Then
      List1.AddItem "$"
      List8.AddItem Rs(0)
      List9.AddItem Rs(1)
      List10.AddItem Rs(4)
      List11.AddItem Rs(3)
     End If
    Rs.MoveNext
   Wend
  End If
 End With
End Sub