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)