Creati un DSN di sistema
poi inserisci questo codice:
codice:
Dim i as Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL; Data Source=MIO_DSN; Database=MIO_DSN; User Id=; Password=; Security Info=True"
cn.Open
'QUERY STATICA
Set rs = cn.Execute("SELECT * FROM mia_tabella WHERE nome='pippo'")
'QUERY DINAMICA
'<--Set rs = cn.Execute("SELECT * FROM mia_tabella WHERE nome='" & txt_NOME & "'")
rs.MoveFirst
i=0
While Not rs.EOF
for i=0 to 9 '<--supponendo che il tuo record sia composto da 10 campi
Mia_ListBox.AddItem rs.Fields(i)
i=i+1
Next i
rs.MoveNext
Wend
P.S. txt_NOME è una casella di testo in cui tu inserisci il criterio
di ricerca... ma volendo può essere anche il nome di una variabile