Como llenar un flexgrid

[fedefrankk]

Hola Si me sirvio..!!!! este es el codigo:

datos = "select*from stock"
tablas_apertura.Open datos, conexion_basedatos
Set MSHFlexGrid1.DataSource = tablas_apertura

en un modulo.bas tengo el siguiente codigo

Public conexion_basedatos As New ADODB.Connection
Public tablas_apertura As New ADODB.Recordset
Global datos As String

Sub abrir()
conexion_basedatos.ConnectionString = App.Path + "\BASE_DATOS_STOCK.mdb"
conexion_basedatos.Provider = "microsoft.jet.oledb.4.0"
conexion_basedatos.Open

End Sub
Sub cerrar()
conexion_basedatos.Close
End Sub

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
Set MSHFlexGrid1.DataSource = tablas_apertura
tablas_apertura.MoveNext
Loop
tablas_apertura.Close

Como puedo hacer para ver todos los datos?...
saludos y muchisimas gracias por tu tiempo