Private Sub cboRevier_Change()
    Dim dbFile As String
    Dim SQL As String
    Dim Rs2 As Recordset
 
    dbFile = App.Path + "\ZAV.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    SQL = "SELECT * FROM Orte"
    Set Rs2 = Db.OpenRecordset(SQL)
 
    If cboRevier.Text = cboRevier.Text Then
        SQL = "SELECT * FROM Orte WHERE Orte = '" & cboRevier.Text & "'"
    End If
 
    lblReviernr.Caption = cboRevier.Text
End Sub

Sub cboRevierFüllen()
    Dim dbFile As String
    Dim SQL As String
    Dim Rs2 As Recordset
 
    dbFile = App.Path + "\ZAV.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    SQL = "SELECT * FROM Orte ORDER BY Orte"
    Set Rs2 = Db.OpenRecordset(SQL)
 
    If Rs.RecordCount > 0 Then
        While Not Rs2.EOF
            With cboRevier
                .AddItem Rs2("Orte")
            End With
            Rs2.MoveNext
        Wend
    End If
    Db.Close
End Sub