Dim Feld1 As String
    Dim Op1 As String
    Dim Op2 As String
 
    Dim Ort1 As String
    Dim Ort2 As String
    Dim nLen As Long
 
    Feld1 = "Ort"
    Op1 = " - "
    Op2 = "OR"
    Ort1 = "Hamburg"
    Ort2 = "Frankfurt"
    nLen = Len(Feld1)
 
 
    sSQL = "SELECT * FROM tblKunden WHERE "
    sSQL = sSQL & "(" & left(Feld1, nLen) = '" & Ort1 & "' OR _
                        Left(Feld1, nLen) = '" & Ort2 & "')"