DIM SQL as String
 
Private Sub cboRevier_Change()
    Dim dbFile As String
    Dim Rs2 As Recordset
    dbFile = App.Path & "\ZAV.MDB" 
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    SQL = "SELECT * FROM Orte WHERE Orte = '" & cboRevier.Text & " Order by" & _
      "Orte'"
'Der SQL-Befehl sollte schon an dieser Stelle so lauten. Alles was du nach dem 
' Set Rs2 = Db.OpenRecordset(SQL) schreibst, kann gar nicht ausgeführt werden, 
' da es ja zu nirgends mehr benutzt wird (solange du die Variable SQL nur für 
' die Procedure deklarierst. Deshalb besser global
 
    Set Rs2 = Db.OpenRecordset(SQL)
'Ich kann mir dieser OpenRecordset-Anweisung nichts anfangen. Wieso machst du 
' hier eine Anbindung? Scheinbar brauchst du doch die Daten gar nicht. Denn 
' nach der nächsten Zeile ist ja schon Schluss.
 
    lblReviernr.Caption = cboRevier.Text
End Sub
 
Sub cboRevierFüllen()
    Dim dbFile 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" 
'Wenn du hier den SQL-Befehl so zusammenbaust, dann ist doch klar, dass er 
' alles selektiert, also brauchst du noch eine Where-Klausel. Nur die wird ja 
' in einem anderen Sub bestimmt. Deshalb ist das SQL-Stetment hier im Grunde 
' sinnlos und die Variable global zu definieren
 
    Set Rs2 = Db.OpenRecordset(SQL)
 
    If Rs.RecordCount > 0 Then 'Vermutlich meinst du Rs2.RecordCount
        While Not Rs2.EOF 
            With cboRevier
                .AddItem Rs2("Orte")
            End With
            Rs2.MoveNext
        Wend
    End If
 
    Db.Close
End Sub