Public Function DBprüfen(Anb As String, Tarifn As String, st As Boolean, ga As _
  Boolean, laufz As Integer) As Boolean
strDSQ = "SELECT * FROM Tarif WHERE Anbieter = '" & Anb & "' and Tarifname = '" _
& Tarifn & "' and Strom = '" & st & "' and Gas = '" & ga & "' and Laufzeit = " _
& laufz & " "
Set rsdat = DB.OpenRecordset(strDSQ, dbOpenDynaset)

Gruss,

Zardoz

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