Problema Casella di Riepilogo

[fraduecenny]

Ho una casella di riepilogo del tipo "Tabella/Query"
Questa mi serve per visualizzare l'output di una chiamata SQL

Premendo un bottone dovrebbe comparire nella cesella di riepilogo l'output della query filtrata da un parametro (ID non univoco) che si trova in una casella di testo.

Private Sub Comando11_Click()
    
    Dim strSQL As String
    Dim intAnag As Long
    
    intAnag = ID.Value  /*indicizzo il valore del'ID*/
    
    strSQL = "SELECT ID, data, numero, evento FROM Tabella_Analisi " & _
        " WHERE ID = '" & intAnag & "' ORDER by ID" /*costruisco la chiamata query*/
        
    ListaAnalisi.RowSource = strSQL /*mando in output la query nella casella di riepilogo*/
 
End Sub 

Ma non succede proprio nulla, ma proprio niente di niente. Non riesco a capire perchè questo script l'ho usato 1000 volte in altri contesti.

Lo script è in VBA per Access 2002