Se metto l'istruzione in un command mi da questo errore:

Errore di sintassi (operatore mancante) nell'espressione della quesry 'Mio Campo = Mio record'.

Il codcie che ho messo è questo:

Private Sub Command1_Click()
cn.Open
Dim i As Long
For i = 0 To List1.ListCount - 1
If rs.State <> adStateClosed Then rs.Close
Set rs = cn.Execute("select Contact from tblUser where Contact = " & List1.List(i))
If Not rs.EOF Then
List2.AddItem List1.List(i)
End If
Next i

End Sub