Private Sub ComboFüllen()
Dim Db As DAO.Database
Dim Rz As DAO.Recordset
 
Set Db = OpenDatabase("C:\Projekte\2 - Zeiterfassung\Testebene\testfunk.mdb")
Set Rz = Db.OpenRecordset("SELECT idJobNr FROM tbl_Geraete_Wartung")
 
If Rz.RecordCount > 0 Then
    Rz.MoveFirst
            cboAnzeige.AddItem "Alle"
        Do While Not Rz.EOF
            cboAnzeige.AddItem CStr(Rz("idJobNr"))
            Rz.MoveNext
        Loop
End If
cboAnzeige.ListIndex = 0
 
Rz.Close
Set Rz = Nothing
 
Rz.Close
Set Rz = Nothing
End Sub