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!