Public PasViejo as String, PasNuevo as String
Public Base As ADODB.Connection
Public Ruta As String 'Se entiende de la base

Private Sub Cambiar_Click()
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=PasViejo;Jet OLEDB:New Database Password=PasNuevo"
End Sub

Public tuUsuario as String, tuContraseña as String, Intentos as Integer

Private Sub Ingresar_Click()
tuUsuario = txUsuario
tuContraseña = txPass
' Aqui metes el SQL o si usas la contraseña en código entonces
If tuUsuario = "Prueba" Then 'No critiques mi contraseña
  If tuContraseña "Para soquetes" Then
     'Aquí metes el código para dejarlo pasar
     Exit Sub 'Para no continuar con el resto
  Else
    Intentos = Intentos + 1
  End If
End If

'Si quieres ser más extricto también puedes restringir el nombre de Usuario
'Intentos = Intentos + 1
If Intentos > 2 Then
  'Bueno también puedes agregar un código para asustarlo, como ya dije eso
  'depende de la imaginación de cada quien
  End
End if

End Sub

 ;DEspero que te sirva y si no pues explicate mejor!!!!!!