Dim dbInventario As Database
Dim rsUsuarios As Recordset

Set dbInventario = OpenDatabase(App.Path & "\system.dll")  'esta es la BD con la extensión cambiada
Set rsUsuarios = dbInventario.OpenRecordset("Usuarios", dbOpenDynaset) 'abrir las tablas

Set rsUsuarios = dbInventario.OpenRecordset _
("Select * FROM Usuarios " _
& "WHERE Usuario = '" & Text1.Text & "'")

If Not rsUsuarios.EOF Then
   If rsUsuarios.Fields("Password") = txtPassword.Text Then
       Session = rsUsuarios.Fields("Tipo")
       Nombre = rsUsuarios.Fields("Nombre")
       If Session = "Administrador" Then
          Form1.Show
          Unload Me
       Else
          Form8.Show
          Unload Me
       End If
    Else
        MsgBox "El Password es invalido, vuelva a intentarlo!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
Else
   MsgBox "El Nombre de usuario es invalido, vuelva a intentarlo!", , "Login"
   Text1.SetFocus
   SendKeys "{Home}+{End}"
End If