Dim SQL As String
Dim oX As Control
Dim n As Integer
Dim f As Long
Dim AndOr As String
 
AndOr = " AND "
 
For Each oX in Form1.Controls
    If oX.Tag <> ""  And oX.Text <> ""then
         SQL=SQL & oX.Tag & " = '"oX.Text & "'%$%" 
         n = n + 1
    End If
Next
 
If n = 0 Then Exit Sub
 
If n = 1 Then
     SQL = Left(SQL, Len(SQL)-3)
Else
     SQL = Trim(Replace(SQL,"%&%", AndOr))
     f = InstrRev(SQL," ")
     SQL=Left(SQL,f-1)
End If