Query con finestra di input

[tas]

VB non ti chiederà mai i parametri, devi per forza chiederli con un tuo form (oppure con la funzione InputBox) e caricarli nella query prima di eseguirla. Fai così:

Dim sql As String
Dim nominativo As String

'chiedi il parametro
nominativo = InputBox("Inserire il nominativo", "Parametro")

sql = "SELECT * FROM Agenda " & _
   "WHERE (((Agenda.Nominativo) Like '*" & nominativo & "*'))"

'qui esegui la query
...