MSFlexgrid pierde encabezados

[Urbe Tecnologica]

Buenas amigos mi problema es:
*estoy trabajando con DAO
*tengo una bd en access con 1 tabla
*tengo un MSFlexgrid, 1 textbox, 3 combos
*hago las tres operaciones basicas, ALTA, BAJA, MODIFICACION.
*cuando hago la BAJA, es decir, BORRAR, me borra el registro pero tambien el encabezado del MSFlexgrid...no le encuentro la vuelta...aca esta el codigo del boton borrar:

'BOTON BORRAR

If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema BDLegis")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
End If
f = 0
Set rs1 = BDLegis.OpenRecordset("SELECT * " & "FROM Legis")

'If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1.Fields("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1.Fields("Tema")
MSFlexGrid1.TextMatrix(f, 2) = rs1.Fields("Comision")
MSFlexGrid1.TextMatrix(f, 3) = rs1.Fields("Estado")
MSFlexGrid1.TextMatrix(f, 4) = rs1.Fields("Ordenar")
rs1.MoveNext
Wend
End If

' BLANQUEO DE CONTROLES
Text1 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
CmdAceptar.Enabled = False
CmdModificar.Enabled = False
CmdBorrar.Enabled = False
CmdImprimir.Enabled = False

[Urbe Tecnologica]

Bueno...
VB es un gran lenguaje, pues permite a ignorantes como yo releer mil veces y aprender de errores taaaaaaaaaaaaaaaaaan sencillos... me rompi la croqueta con el tema este de los encabezados Y LA RESPUESTA ESTABA FRENTE A MI ! 

Solo mirando con atencion me di cuenta: tenia que hacer lo siguiente:
MSFlexGrid1.Clear
MSFlexGrid1.TextMatrix(0, 0) = "Tipo de Proyecto"
MSFlexGrid1.TextMatrix(0, 1) = "Tema"
MSFlexGrid1.TextMatrix(0, 2) = "Comision"
MSFlexGrid1.TextMatrix(0, 3) = "Estado Legislativo"
MSFlexGrid1.TextMatrix(0, 4) = "Nº de Proyecto"

Perdon por hacerlos perder el tiempo, y espero que este error que al final encontre yo mismo la respuesta tan solo PRESTANDO MAS ATENCION a mi codigo...espero que le sirva a algun despistado algun dia ahi esta la solucion..