[vb6] ciclare una tabella

[TheSpoiler]

ciao raga.

come posso fare a ciclare il contenutd di una tabella di database, senza usare il datagrid?

io ho scritto cosi:

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim prova, sql, i
conn.ConnectionString = Adodc1.ConnectionString
conn.Open
sql = "select * from archivio where id= 13"

Adodc1.RecordSource = sql
With Adodc1.Recordset
    .MoveNext
   If Not .EOF Then
   MsgBox Adodc1.Recordset!cognome
   End If
End With
cmd.ActiveConnection = conn
cmd.CommandText = sql
cmd.Execute
conn.Close
End Sub

e mi dice : "Variabile oggetto o variabile del blocco with non impostata".

che vuol dire?