Ayuda "Cargar datos DBGrid VB 6"

[estelam2004]

el problema es el siguiente estoy haciendo una consulta con ado a traves de codigo en visual basic 6 a una tabla xxxx en access y necesito cargar los datos de la tabla yyyy que esta relacionada con xxxx en una grilla a traves de un DBGrid (con codigo), en general como hago para cargar los datos de una consulta al DBGrid de una grilla, quien pueda ayudarme con esto, se lo agradeceria....

[reel]

Haz lo siguiente:

Set DBGrid1.DataSource = RecordSet

No me acuerdo si hay que refrescar al grid.

Ahora en el grid puedes dajar la opcion que se autogenere para que te pruebes y luego puedes editarlo y definir las columnas que quieres en tiempo de diseño (en este caso debes setear la propieda del DataField de la columna al nombre del campo que deseas enlazarlo).

[estelam2004]

Hola disculpa pero esa parte de:
(en este caso debes setear la propieda del DataField de la columna al nombre del campo que deseas enlazarlo)
no entiendo a q le llamas satear...
a menos q sea cambiar esa propiedad por el diseño, pero ya lo he hecho y no me muestra lo valores, en codigo como hago para la establecerle los emcabezados de las columnas y tamaño

[reel]

Hola,

Una aclaración el grid que usé es el DataGrid OLEDB, este grid lo puesdes seleccionar en componentes, búscalo como "Microsoft DataGrid Control 6.0 (SP5) (OLEDB)", este grid permite ser enlazado a lo una fuende de datos OLE.

Código:

Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "Orders", "CadenaDeConexión", adOpenDynamic, adLockOptimistic
    Set Me.DataGrid1.DataSource = rs
    Me.DataGrid1.ReBind
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rs.Close
    Set rs = Nothing
End Sub

El código anterior te funcionora aún cuando no le hallas definido las compos a enlarzar, para editar las columnas has click derecho -> modificar o edit, luego puedes ya agregar y eliminar columnas, una vez que hallas terminado click derecho -> propiedaes -> pestaña columnas, cambia las propiedades Caption y DataField y vuelve a ejecutar.