Agregar Columna DataGrid, con dos consultas

[juan007]

OK...pero como le asigno a la nueva columna de msflexgrid (hijos) la segunda consulta.
With Msflexgrid1
.Clear
.Cols = 4
.Rows = 1
.FormatString = "Numero |Nombre |edad |Hijos |Estado "
End With

ya tengo el flekgrid con la nueva columna, ahora deberia hacer una consulta a mi otra tabla para llenar la columna hijo(Columna creada) esta consulta deberia tomar los valores msflexgrid1.TextMatrix(columna nueva,i) moviendo el i para buscar el numero.

hasta aca todo bien creooo ahora deberia abrir la BD crear una query registro por registro y asignarle el valor a cada celda del flexgrid.

Lo que me complica creooo (ya que aun no tengo hecho el codigo de todo lo que e escrito) es si puedo tener un Repita hasta.

por ejemplo no se si se puedo hacer esto.

repeat
dim MiRec as adodb.recordset
Abredb
set MiRec = new Adodb.recordset
MiRec.activeconnection=DB
MiREc.cursor.Location=AdUseClient
....
....
MiRec.open"Select Cantidad from [Hijos] where Numero=" + flexgrid1.TextMatrix(numero, i) + ";"
msflexgrid1.TextMatrix(Columna nueva,i)=mirec!cantidad
MiRec.movenet
i=i+1
until(i=Mirec.recordcount)

Bueno espero haber sido claro

De antemano se agradece cualquier sugerencia o critica.