Visual Basic - flexgrid que no agrega nueva fila

Hola.

Tengo una duda, necesito actualizar un flexgrid y que cada vez que hago una consulta en una BD se vaya agregando una nueva fila al MSflexGrid pero no lo logro, a partir de la 3 consulta se actualiza la segunda.Ademas de eso, tampoco se me queda grabado lo que hago en estas lineas de codigo:

grid_dir.TextMatrix(0, 0) = "Nombre del sector de la antena"
grid_dir.TextMatrix(0, 1) = "Direccion de la antena"

Abajo anexo el codigo a ver quien me puede ayudar....

Dim a, b, c, r, j, Counta, max_len, new_len As Integer
Dim str_consulta As String
'str_consulta = "Select name, address from DireccionesCCS where cell_id =" & numCel
'Main
'Set rs_grid = conec2.Execute(str_consulta)
grid_dir.TextMatrix(0, 0) = "Nombre del sector de la antena"
grid_dir.TextMatrix(0, 1) = "Direccion de la antena"
'grid_dir.Cols = rs_grid.Fields.count
grid_dir.Rows = cnt + 1
' grid_dir.Row = 0
a = 0
For j = 0 To cnt
'MsgBox cnt
str_consulta = "Select name, address from direccionesccs where cell_id =" & str_vec(j)
'MsgBox str_vec(j)
cone
Set rs_grid = conec.Execute(str_consulta)

While Not rs_grid.EOF
grid_dir.Rows = Counta + 1
b = 0
While Not b = rs_grid.Fields.count
grid_dir.Col = b
If Not IsNull(rs_grid.Fields(b)) Then
grid_dir.Text = rs_grid.Fields(b)
End If
b = b + 1
Wend
rs_grid.MoveNext
Counta = Counta + 1
Wend
conec.Close
'' rs_grid.Close
Next j

Reinaldo...

Tienes dos opciones:

1) Para agregar filas a un msflexgrid te recomiendo que utilices el método "AddItem", pasándole como parámetro un string vacío:

grid.AddItem ""



2)Rreemplazar el MSFlexGrid por un MSHFlexGrid (Microsoft Hierarchical Flex Grid), y utilizar directamente la propiedad DataSource:

Set grid.DataSource = MiRecordset

De esta forma se te completa solito el flexgrid y hasta te coloca en el header los nombres de los campos

Saludos y espero que la info te sirva