perchè non funziona?? non mi da errori .. eppure non "stampa" niente nel flex grid .. ne nella lista!!
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;" _
& "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