Data()

[darkblOOd]

Non so come si comporta la sintassi dell'editor VB di access, cmq devi concatenare la stringa SQL in questo modo:

Private Sub cmdgo_Click()
Dim strText As Variant
strText = cmbox.Value ' Pongo la variabile Uguale al valore della casella a discesa 
 elenco.RowSource = "SELECT [MY Query].Nome, [MY Query].Città, [MY Query].data FROM [My Query] WHERE [MY Query].data='" & strText &"'"
End Sub

Se ti da problemi prova a cambiare l'apice ( ....data=') con il simbolo #.

Ciao