Como Agrego datos a datagrid trabajndo con codificacion ADO

[moche_67]

mire en eso y al final me sale ke las fila sno admiten marcadores, y yo no se a kese refiere kon eso, no se ke estoy haciendo mal...

Set rssub = Nothing

rssub.Fields.Append "codigo", adSingle
rssub.Fields.Append "descripcion", adSingle
rssub.Fields.Append "detalle", adSingle
rssub.Fields.Append "cantidad", adInteger
rssub.Fields.Append "monto", adDecimal

rssub.Open
Set DataGrid1.DataSource = rssub
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 1000
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(3).Width = 1000
DataGrid1.Columns(4).Width = 1000

sqlsub = "SELECT id_submovimiento, descripcion, detalle, cantidad, " & _
"monto FROM submovimiento WHERE id_movimiento = ' " & codigo & " ' "
Set rssub = cn.Execute(sqlsub)

luego hice una consulta asi pero no me muestra valor alguno

sql = "select id_movimiento, descripcion, detalle, cantidad, monto FROM submovimiento WHERE id_movimiento= '" +codigo + "'" ' variable ke tiene el numero del codigo, en esta consulta solo se seleccionan algunos kampos de la tabla no todos

rs.open sql, cn, adlock,,....
set datagrid1.datasource = rs

pero naa paso, no se si uds tieen algun idea porke lo ke yo hice no funciono