Private Sub cmdquery_Click()
Dim tabella As New ADODB.Recordset
Dim connessione As New ADODB.Connection
Dim query As String
Dim risultato As String

connessione.Open "provider = microsoft.jet.oledb.4.0;" _
there is the table in access with all fields ... but .. it print nothing ...

& "data source = C:\Documents and

Settings\Freedom\Desktop\prova.mdb"

Set tabella.ActiveConnection = connessione

query = "select * " _
& "from Cliente " _


tabella.Open query

Do While Not tabella.EOF
risulato = tabella!Nome & Chr(9)
List1.AddItem risultato
MSFlexGrid1.AddItem risultato
tabella.MoveNext
Loop

tabella.Close
End Sub