Originariamente inviato da alchimista84
xkè il sistema va in crash con il seguente code?

cosa ometto??

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

connessione = "provider=microsoft.jet.OLEDB.4.0;data source=C:\Documents and Settings\Freedom\Desktop\iociprovo.mdb"

Adodc1.RecordSource = connessione
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = cliente


connessione.Open

Set tabella.ActiveConnection = connessione

query = "select nome from cliente"

tabella.Open query

Do While Not tabella.EOF
risultato = tabella!nome & Chr(10)
MSFlexGrid1.AddItem risultato
Loop
End Sub
Direi che un
codice:
tabella.MoveNext
Prima di "Loop" ci starebbe proprio bene...