Problemas con Flexgrid

[rishart]

hola amigos tengo una duda con este codigo grid que la verdad es que no se como hacerle
miren mi problema es que en el flexgrid al entrar a un form donde se encuentra el flex inicia bien cargando el encabezado y sus datos mi problema es que al hacerle una modificacion y actualizarlos este me muestra alfinal de los datos de las columnas otra vez el en cabelzado
mi pregunta es ¿como le puedo hacer para que el encabezado no se repita al volver a cargar o actualizar el flex?

ojala puedan ayudarme mi codigpo es este:

vano = Trim(Label1.Caption)
i = Form10.Grid1.Rows
Form10.Grid1.FixedRows = 0
Do While (i > 1)
Form10.Grid1.RemoveItem (i)
Form10.Grid1.Refresh
i = i - 1
Loop

aux = 0
Form10.Grid1.ColWidth(0) = 1500
Form10.Grid1.ColWidth(1) = 1000
Form10.Grid1.ColWidth(2) = 1000
Form10.Grid1.ColWidth(3) = 1000
Form10.Grid1.ColWidth(4) = 1000
Form10.Grid1.ColWidth(5) = 1000
Form10.Grid1.ColWidth(6) = 1000
Form10.Grid1.ColWidth(7) = 1000
Form10.Grid1.ColWidth(8) = 1000
Form10.Grid1.ColWidth(9) = 1000
Form10.Grid1.ColWidth(10) = 1000
Form10.Grid1.ColWidth(11) = 1000
Form10.Grid1.ColWidth(12) = 1000
'Form10.Grid1.ColWidth(14) = 1000


Form10.Grid1.Row = 0

Encabezado = "Tipo" & vbTab & "Enero" & vbTab & "Febrero" & vbTab & "Marzo" & vbTab & "Abril" & vbTab & "Mayo" & vbTab & "Junio" & vbTab & "Julio" & vbTab & "Agosto" & vbTab & "Septiembre" & vbTab & "Octubre" & vbTab & "Noviembre" & vbTab & "Diciembre"
Form10.Grid1.AddItem Encabezado, aux

aux = aux + 1



Set rst = dbs.OpenRecordset("select * from hato2000 where ano like '" & vano & "' order by ano")
ren = rst.RecordCount
If ren > 0 Then
Do While Not rst.EOF
With rst

tipo = rst(15)
enero = rst(1)
febrero = rst(2)
marzo = rst(3)
abril = rst(4)
mayo = rst(5)
junio = rst(6)
julio = rst(7)
agosto = rst(8)
septiembre = rst(9)
octubre = rst(10)
noviembre = rst(11)
diciembre = rst(12)

entry1 = tipo & vbTab & enero & vbTab & febrero & vbTab & marzo & vbTab & abril & vbTab & mayo & vbTab & junio & vbTab & julio & vbTab & agosto & vbTab & septiembre & vbTab & octubre & vbTab & noviembre & vbTab & diciembre

Form10.Grid1.AddItem entry1, aux
aux = aux + 1
rst.MoveNext
End With
Loop
Else
entry1 = "" & vbTab & ""

Form10.Grid1.AddItem entry1

End If
Form10.Grid1.FixedRows = 0
Form10.Grid1.FixedRows = 1

rst.Close