Ich Brauche Hilfe z.b.
Set rs = DB.OpenRecordset("AussengebietszuschlagUPS03B", dbOpenDynaset, dbSeeChanges)
rs.FindFirst "[Land] like'*" & StrSuch & "*' AND [Niedrig] like'*" & StrSuch01 & "*' AND [Hoch] like'*" & StrSuch01 & "*' AND _
              [TA01] like'*" & StrSuch03 & "'*"
If StrSuch = rs![Land] And StrSuch01 >= rs![Niedrig] And StrSuch02 <= rs![Hoch] And StrSuch03 = rs![TA01] Then
  MsgBox "Customer name002"
Else
  MsgBox "Test007.", , "Verkäufer"
  rs.FindNext "[Land] like'*" & StrSuch & "*' AND _
               [Niedrig] like'*" & StrSuch01 & "*' AND _
               [Hoch] like'*" & StrSuch02 & "*' AND _
               [TA01] like'*" & StrSuch03 & "'"
End If
End Sub

Funtioniert nicht Was bae ich falsch gemacht?