Cita:
Iniciado por fedefrankk 
Hola Si me sirvio..!!!! este es el codigo:
datos = "select*from stock"
tablas_apertura.Open datos, conexion_basedatos
Set MSHFlexGrid1.DataSource = tablas_apertura
....
Me muestra solo un dato, quise hacer esto pero me sale error
datos = "select*from stock"
tablas_apertura.Open datos, conexion_basedatos
Do While Not tablas_apertura.EOF <-- NO
Set MSHFlexGrid1.DataSource = tablas_apertura
tablas_apertura.MoveNext <--NO
Loop <-- NO
tablas_apertura.Close
Como puedo hacer para ver todos los datos?...
saludos y muchisimas gracias por tu tiempo
[/COLOR]
Si enlazas el control MSHFlexGrid al recordset no necesitas hacer ningún bucle.
Con esto es suficiente para que muestre todos los datos:
datos = "select*from stock"
tablas_apertura.Open datos, conexion_basedatos
Set MSHFlexGrid1.DataSource = tablas_apertura 