[VBA/Access] - Problema rowsource e combobox

[likioti687]

Ciao a tutti, ho un problema in questo codice:

Option Compare Database

Private Sub dati_utenti_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub visite_Click()
Dim strSQL As String
MsgBox Visita.Text, vbInformation

dati_utenti.RowSource = "SELECT utenti FROM Preno WHERE visita='" & Visita.Text & "'"
dati_utenti.Requery

End Sub

non mi popola la combo box dati_utenti, si vedono le righe ma sono tutte vuote. Dove sbaglio ?