errore ado!!

[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

[Kylnas]

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

tabella.MoveNext

Prima di "Loop" ci starebbe proprio bene...