visualizzazione dati nelle text

[Webman]

salve a tutti

non capisco perché quando clicco sul pulsante mi esce solo la form senza valori:

Private Sub Command24_Click()


query = "select * from PRIVATI where nome like " & Text4.Text & " ;"


nomefile = "percorso.............\mdb.mdb"

Set connessione = New ADODB.Connection
connessione.Provider = "Microsoft.Jet.OLEDB.4.0"
'connessione.Properties("Jet OLEDB:Database Password") = PasswordDB
connessione.Open nomefile
Set SetDiRecord = New ADODB.Recordset
SetDiRecord.Open query, connessione, 1



Do While Not (SetDiRecord.EOF)

Text1.Text = SetDiRecord.Fields(1)
Text2.Text = SetDiRecord.Fields(2)
Text3.Text = SetDiRecord.Fields(3)
Text4.Text = SetDiRecord.Fields(4)
Text5.Text = SetDiRecord.Fields(5)
Text6.Text = SetDiRecord.Fields(6)
Text7.Text = SetDiRecord.Fields(7)
Text8.Text = SetDiRecord.Fields(8)
Text9.Text = SetDiRecord.Fields(9)
Text10.Text = SetDiRecord.Fields(10)
Text11.Text = SetDiRecord.Fields(11)

SetDiRecord.MoveNext
Form4.Show
Loop
SetDiRecord.Close


End Sub

grazie

[totres]

prova quella query in Access e vedrai che ti dara' 0 record. Devi aggiungere prima o dopo, a secondo di dove ti serve la wild card "%". esempio:

query = "select * from PRIVATI where nome like " & Text4.Text & "% ;"