Visual Basic - AGREGAR FILA EN MSFLEXGRID

HOLA A TODOS, NECESITO AYUDA CON RESPECTO A MSFLEXGRID. RESULTA QUE ESTOY HACIENDO UN PROGRAMA SOBRE VENTAS, LOS ITEMS DE UNA VENTA LOS CARGO A UNA GRILLA MSFLEXGRID, EL PROBLEMA ES QUE PUEDO HACERLO PARA UNA SOLA FILA, YA QUE AL MOMENTO DE HACER LA VENTA PARA OTRO ITEM, ME CARGA LOS DATOS SOBRE EL ITEM QUE YA HABIA HECHO. MI CODIGO ES EL SIGUIENTE:

Private Sub Command1_Click()
Dim i As Integer
If Me.Text1.Text = "" Then
Me.Text1.Text = ""
Me.Text1.SetFocus
Else
''''''''''''''''''''''''''''''''''''''''''''

' mueve el cursor hacia la ultima fila
'grilla.Rows = grilla.Rows - 1
'grilla.Row = i + 1
grilla.TextMatrix(grilla.Row, 1) = Me.Text1.Text
grilla.Rows = grilla.Rows + 1

Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
grilla.Cols = 2
grilla.Rows = 2
grilla.TextMatrix(0, 1) = "CODIGO"
grilla.ColWidth(1) = 1000

'Call crear_grilla
End Sub

OJALA HAYA SIDO CLARO EN MI EXPLICACION
PORFAVOR, NECESITO LA AYUDA, DE ANTEMANO MUCHISIMAS GRACIAS

' mueve el cursor hacia la ultima fila
Grilla.Rows = Grilla.Rows + 1
Grilla.Row = Grilla.Rows - 1
Grilla.TextMatrix(Grilla.Row, 1) = Me.Text1.Text
' por si la última fila no está visible
Grilla.TopRow = Grilla.Rows - 1
Grilla.LeftCol = 1

MUCHAS GRACIAS PEPON POR LA AYUDA, EN REALIDAD ESTO ME ESTABA COMPLICANDO, AHORA LO VOY A PROBAR EN MI APLICACION. SI HAY OTRA AYUDA DESDE YA MUCHAS GRACIAS.

tengo un programa hecho con un msflegrid en visual basic 6.0, pero el flexgrid solo me captura hasta 4682 registros y estoy consultando mas de 100.000 registros, adicionalmente necesito exportarlos a excel 2010 o a un archivo csv me podrian ayudar con este caso.

apenas es que estoy comenzando a programar en visual basic, porque en mi trabajo me lo estan exigiendo