Caro Treze,

Não tinha prestado atençao no porem.

Na tabela os campos tem nomes diferentes (Postei como campo1, campo2... campoN)

somente como exemplo.

Com nome de campos diferentre é mais dificil?

Bom as vezes me empolgo com programação e tento deixar cada vez melhor por eis um código caso você não queira mudar nem os nomes os textbox e nem ter de colocar todos os nomes dos campos iguais:

 

creio que vai ser o mais util

 

Private Sub Command1_Click()
Dim Consulta As String
Dim textos As Variant
Dim campos As Variant
textos = Array(Text1.Text, Text2.Text, Text3.Text)
campos = Array("nome", "endereco", "bairro") ' deacordo com a sequência de texts
For f = 0 To 2
If textos(f) <> "" Then
Consulta = Consulta + campos(f) & "='" & textos(f) & "' and "
End If
Next f
Consulta = Left(Consulta, Len(Consulta) - 5)
Text4.Text = "SELECT * FROM tabela WHERE " & Consulta & """"
End Sub

 

e está ai um select dinamico

Valeu Treze!

Vou testar e posto o resultado.