puoi mettere un combobox e modificare il tuo sorgente in questo modo:

codice:
Dim ricerca As String
Dim campo_ricerca As String
Private Sub Combo1_Click()
campo_ricerca = Combo1.Text
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem ("nome")
Combo1.AddItem ("cognome")
Combo1.AddItem ("ditta")
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
ricerca = InputBox("nome?")
sql = "SELECT * FROM Clienti where " & campo_ricerca & "='" & ricerca & "'"
Data1.RecordSource = sql
Data1.Refresh
End Sub
ciao