Microsoft Embedded - Error al pasar una tabla a un Datagrid

Lo que quiero es cargar una tabla que anteriormente tenia cargada en cajas de texto a un DataGrid para ello utilizo este codigo:


Codigo en Embedded Visual Basic

[code]Option Explicit

Dim rsgrid As ADOCE.Recordset

Dim consu As String

Set rsgrid = CreateObject("ADOCE.Recordset.3.1")

Dim conne As ADOCE.Connection

Set conne = CreateObject("ADOCE.Connection.3.1")

conne.ConnectionString = "Data Source=\My Documents\Cliente.cdb"

conne.Open

Set rsgrid = Nothing

Set rsgrid = CreateObject("ADOCE.Recordset.3.1")

consu = "SELECT * FROM tClientes"

rsgrid.Open consu, conne, adOpenKeyset, adLockOptimistic

Dim i

Private Sub Form_Load()

For i = 0 To rsgrid.RecordCount

grid.AddItem rsgrid.Fields("Nombre"), i

rsgrid.Move 1

Next i

End Sub[/code]


Se supone que este me carga la columna nombre en un Datagrid ,recorriendo toda las filas de ese campo con el "MoveNext", el problema es que me da un error al utilizar el "MoveNext" al igual que si utilizo el "MovePrevious" mientras que con el "MoveFirst" y "MoveLast" no me marca ningun error


Alguien sabe donde puede estar el error??