Visual Basic - Resultado de SQL no se muestra en datagrid

Tengo la siguiente sentencia :

Visual basic 6.0 y acces xp

Public Function ORDENAR()

Dim rsoRDeNAR As ADODB.Recordset
Dim sqlORDENAR As String

Set rsoRDeNAR = New ADODB.Recordset

rsoRDeNAR.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=12345678"

sqlORDENAR = "Select * from PPTO where codigo ='" & TXT_CODIG & "' ORDER BY subc"
rsoRDeNAR.Open sqlORDENAR, , adOpenDynamic, adLockOptimistic

Set MSH_ord.DataSource = rsoRDeNAR // CON EL MSHFLEXGRID SALE LA CONSULTA
***************** ERRORRRRRRRRRRRRRRRRR**********************
'Set DataGrid1.DataSource = rsoRDeNAR // CON EL DATAGRID ME SALE ERROR

End Function

Ayudenme por favor k es lo k esta faltando

Antes de abrir el recordset, le pones esta instrucción

rsoRDeNAR.CursorLocation = adUseClient

Creo que así funcionará.

Gracias amiga justo eso me faltaba, pero ahora k me vota lo mostrabo , domo el datagrid esta enlazadon con un adodc, al manipular el adodc como el siguiente o el anterior registro el punterodel datagris no se mueve, queda congelado :(