Dim odb As Database
Dim oRs As DAO.Recordset
 
'Datenbank öffnen
Set odb = DBEngine.OpenDatabase(App.Path & "\datenbanken\instandhaltung.mdb")
 
'Alle User auslesen und in die ComboBox schreiben
 
Set oRs = odb.OpenRecordset("SELECT * FROM Users;")
If oRs.RecordCount > 0 Then
    With cmb_UserSelect
        Do
            .AddItem oRs("user_name")
            .ItemData(.NewIndex) = oRs("user_countnr")
            oRs.MoveNext
        Loop Until oRs.EOF
    End With
End If
'cmb_UserSelect.Text = Fu_Benutzer_Name

set fld_UserPreName.DataSource = oRs
fld_UserPreName.Datafield=user_name