Set rs = Db.OpenRecordset("SELECT Kostenstelle, Text FROM Kostenstellen")
    If rs.RecordCount > 0 Then
       Do Until rs.EOF
        Combo1(2).AddItem rs(0) & " " & rs(1)
       rs.MoveNext
       Loop
    End If
    rs.Close

    sKostenstelle = Combo1(2).Text
 
    Set rs = Db.OpenRecordset("SELECT Anlagennummer, Anlage FROM Anlagen " & _
        "WHERE Kostenstelle = '" & sKostenstelle & "'")
    If rs.RecordCount > 0 Then
       Do Until rs.EOF
        Combo1(3).AddItem rs(0) & " " & rs(1)
       rs.MoveNext
       Loop
    End If
    rs.Close

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!