Option Explicit
Dim oDb As Database
Dim oRs As Recordset

Private Sub Form_Load()
  ' Datenbank öffnen
  Set oDb = DBEngine.OpenDatabase(App.Path & "\user.mdb")
 
  ' Alle User auslesen und in die ComboBox schreiben
  Set oRs = oDb.OpenRecordset("SELECT * FROM Users ORDER BY User")
  If oRs.RecordCount > 0 Then
    With Combo1
      Do 
        .AddItem oRs("User")
        .ItemData(.NewIndex) = oRs("usercountnr")
        oRs.MoveNext
      Loop Until oRs.Eof
    End With
  End If
End Sub

Private Sub Command1_Click()
  ' Prüfen, ob Passwort des ausgewählten Users stimmt
  Dim nUser As Long
 
  If Combo1.ListIndex > -1 Then
    nUser = Combo1.ItemData(Combo1.ListIndex)
    oRs.FindFirst "usercountnr = " & CStr(nUser)
    If oRs("password") = Text1.Text Then
      Load frm_main
      frm_main.Show
      Unload Me
    Else
      MsgBox "Ungültiges Kennwort!"
    End If
  Else
    MsgBox "Bitte zunächst einen User aus der Liste auswählen!"
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
  oRs.Close
  Set oRs = Nothing
 
  oDb.Close
  Set oDb = Nothing
  On Error Goto 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de