Visual Basic - problema con datagrid

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

Si tu problema es como llenar el MSHFLEXGRID con los datos de la consulta, y es ese tu código te faltan unas cositas, yo lo hago de esta forma…

‘******************** TU CODIGO ***************************
Set Mir = BaseDatos.OpenRecordset("SELECT Productos.Cd_p, Productos.Nombre, Venta.N_Boleta,Venta.precio_v, Venta.Cantidad_v, Venta.SubTotal_v, Venta.Dia_v, Venta.Mes_v, Venta.Ano_v, (Vendedor.Nombre)as vendedor FROM Productos INNER JOIN (Vendedor INNER JOIN Venta ON Vendedor.Rut_v = Venta.Rut_v) ON Productos.Cd_p = Venta.Cd_p where Venta.N_Boleta ='" & Ver_Ventas.Text1 & "';", 2)

‘***** Se definen las dimensiones del flexdrid
Grid1.Rows = 1 ‘ filas
Grid1.Cols = 8 ‘ columnas

Grid1.ColWidth(0) = 300 ‘ tamaño de la columna ……
Grid1.ColWidth(1) = 900
Grid1.ColWidth(2) = 4200
Grid1.ColWidth(3) = 1700
Grid1.ColWidth(4) = 2700
Grid1.ColWidth(5) = 900
Grid1.ColWidth(6) = 900
Grid1.ColWidth(7) = 1200

Grid1.Col = 0
Grid1.Text = "Nº" ‘ etiqueta de la columna 1....
Grid1.Col = 1
Grid1.Text = "Codigo"
Grid1.Col = 2
Grid1.Text = "Producto"
Grid1.Col = 3
Grid1.Text = "Fecha"
Grid1.Col = 4
Grid1.Text = "Vendedor"
Grid1.Col = 5
Grid1.Text = "Cantidad"
Grid1.Col = 6
Grid1.Text = "Precio"
Grid1.Col = 7
Grid1.Text = "Sub Total"

‘ ******Aquí se comienza a llenar el flexdgid

While Not Mir.EOF
Grid1.Rows = Me.Grid1.Rows + 1
Grid1.Row = Me.Grid1.Rows - 1
Grid1.Col = 0
Grid1.Text = Grid1.Row
Grid1.Col = 1
Grid1.Text = Mir!Cd_p ‘ los datos que quieres q aparezcan
Grid1.Col = 2
Grid1.Text = Mir!Nombre
Grid1.Col = 3
Grid1.Text = Mir!Dia_v & "/" & Mir!Mes_v & "/" & Mir!Ano_v
Grid1.Col = 4
Grid1.Text = Mir!Vendedor
Grid1.Col = 5
Grid1.Text = Mir!Cantidad_v
Grid1.Col = 6
Grid1.Text = Mir!Precio_v
Grid1.Col = 7
Grid1.Text = Mir!SubTotal_v

‘ total1 = total1 + Mir!SubTotal_v
Mir.MoveNext ‘ incrementas el recorset
Wend

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"

'SI EL codigo AL QUE ESTAS HACIENDO REFERENCIA ES UN NUMERO, ENTONS
'TIENES QUE ANTEPONER VAL() O CINT()
sqlORDENAR = "Select * from PPTO where codigo ='" & TXT_CODIG.TEXT & "' 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