sSQL = "SELECT * FROM Nummernverwaltung WHERE "
    For i = 0 To Form1.txtSearch.UBound
      If Form1.txtSearch(i).Text <> "" Then
        sSQL = sSQL & Form1.txtSearch(i).Tag & " = '" & Form1.txtSearch(i).Text _
          & "' AND "
      End If
    Next i
 
    If Right$(sSQL, 5) = " AND " Then sSQL = Left$(sSQL, Len(sSQL) - 5)
    If Right$(sSQL, 7) = " WHERE " Then sSQL = Left$(sSQL, Len(sSQL) - 7)
 
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open sSQL, db, adOpenStatic, adLockOptimistic