Error en datagrid

[komodo]

Hola! Estoy utilizando un datagrid para mostrar datos de una tabla de acces, el código que utilizo és el siguiente:

Dim grid As New ADODB.Recordset

Set grid = cnt.Execute("Select * from cliref where id='" & codigo.Text & "'")
i = 0
Do Until grid.EOF
i = i + 1
DataGrid1.row = i
'Campo1
DataGrid1.Col = 0
DataGrid1.Text = grid.Fields("ref")

'Campo2
DataGrid1.Col = 1
DataGrid1.Text = grid.Fields("desc")

grid.MoveNext
Loop

Al ejecutar me salta el siguiente error:

Error '7005' en tiempo de ejecución:
Conjunto de filas no disponible

A que se debe este error?
Grácias de antemano y un saludo!

[Maximal]

Hola, que es cnt tu conexion ¿no? A mi me pasa lo mismo con una aplicación para importar grids a excel, yo creo que el problema esta en la conexión o la base de datos. Puede que sea cuestión de permisos. Un saludo

[Avellaneda]

No entiendo porqué utilizas un bucle para cargar el DataGrid si éste es un control enlazado a datos:

Código:

Set grid = cnt.Execute("Select * from cliref where id='" & codigo.Text & "'")
Set DataGrid1.DataSource = grid

todo lo demás sobra

Nota Si el campo id es numérico (no de texto) debes quitarle las comillas simples:

Set grid = cnt.Execute("Select * from cliref where id=" & codigo.Text )