Como traslado columnas a un DBGrid?

CAS
29 de Diciembre del 2003
Hola
Tengo una tabla y quiero mostrar en un datagrid el contenido de esta, previa seleccion mediante "select" pero no se como llenar las columnas del DBGrid. Este es parte del código que utilizo:
With Rs
.CursorLocation = adUseClient
.Open SentSelect, Cnn, adOpenDynamic, adLockOptimistic
Do Until Rs.EOF
With DataGrid1
************** aca iría el código faltante ***************
End With
Rs.MoveNext
Loop
End With
El DBGrid lo agregue al formulario y no le hice nada mas. Agradeceré la ayuda que puedan darme.
Muchas gracias

Baltasar
29 de Diciembre del 2003
En lugar de un Datagrid pon un Msflexgrid. Has de agregarlo en Componentes.

Luego en tu código, pones:

Mgrid1.cols=(numero de columnas)
a=0
Do Until Rs.EOF
Mgrid1.rows=a+1
Mgrid1.textmatrix(a,0)=rs!campo1
Mgrid1.textmatrix(a,1)=rs!campo2
Mgrid1.textmatrix(a,2)=rs!campo3
.
.
a=a+1
Rs.MoveNext
Loop

He visto que has anidado dos With, realmente no sé si es posible, pero creo que habría que comprobarlo. Ahora no tengo el Visual delante, así que no puedo confirmar nada.

Espero no haber dejado nada atrás.
Saludos y Feliz Año Nuevo

CAS
29 de Diciembre del 2003
Gracias nuevamente y que tengas un muy buen 2004.