strDSQ = "SELECT * FROM Tarif"
Set rsdat = DB.OpenRecordset(strDSQ, dbOpenDynaset)
With rsdat
If .EOF = True And .BOF = True Then DBprüfen = False: Exit Function
 
.MoveFirst
Do While Not .EOF
     Select Case .Fields(1)
        Case Is = Anb
            Select Case .Fields(4)
                Case Is = Tarifn
                    Select Case .Fields(2)
                        Case Is = st
                            Select Case .Fields(3)
                                Case Is = ga
                                    Select Case .Fields(7)
                                        Case Is = laufz
                                            DBprüfen = True
                                    End Select
                            End Select
                    End Select
            End Select
    End Select
 .MoveNext
 Loop