problemas con adodc

[txetxo]

Hola

Tengo el siguiente codigo, probablemente este todo mal, pero es la primera vez que intento configurarlo, asi que el que controle del tema, que me perdone. El caso es que me da el siguiente error: variable de tipo object o la variable de bloque with no esta establecida.

Private Sub Command1_Click()
Dim i As Integer
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("equipo") = "sasoi eskabazioak" Then
grid1.TextMatrix(i, 0) = Adodc1.Recordset.Fields("dorsal")
grid1.TextMatrix(i, 1) = Adodc1.Recordset.Fields("nombre")
grid1.TextMatrix(i, 2) = Adodc1.Recordset.Fields("goles")
End If
i = i + 1
Adodc1.Recordset.MoveNext
Wend
End Sub

¿Alguien me puede ayudar?

Gracias de antemano.

[jc_moty]

¿En cual linea te da el error?
Este error suele pasar porque la propiedad de algun objeto no esta inicializada o le estas asignando un valor que no es compatible con ella. Para mi que el error esta en la asignacion de los campos a la grid.
grid1.TextMatrix(i, 0) = Adodc1.Recordset.Fields("dorsal")
Porque no probas estableciendo la propiedad DataSource de la Grid al Adodc.

Saludos

[lop7]

bueno...
lo que el te quiere decir es q lo hagas asi:

set grid1.recordsource = Adodc1


saludos...