Header, o encabezado a un flexgrid

Question

ola de nuevo !!!


bueno he estado tratando de relaizar un pequeño programa de tarea en mis clases, en vb6 con sql server 2000

y ahorita estoy algo medio atorado, xk no se como puedo puedo agregar un Heador o encabezado a un MSHFlexGrid

que se llena con un recordset necesito saber como agregar un encabezado q sea el nombre de las respectivas tablas, que

me de un mejor separacion de tablas al enviar a WORD, xk el resultado es q en Word me manda la tabla como un todo

si necesitan mas especificaciones preguntenme??

Boton para exporta el MSHFLEXGRID a MS WORD

Code Snippet

Private Sub Command1_Click()
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Table
Dim F, C As Double

Set MSWord = New Word.Application
Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _
                    MSHFlexGrid1.Rows, MSHFlexGrid1.Cols)

MSWord.Visible = True

         'Agregar columnas
          For C = 0 To MSHFlexGrid1.Cols - 1
              Parrafo.Cell(0, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(0, C)
         'Agregar filas
          For F = 0 To MSHFlexGrid1.Rows - 1
              Parrafo.Cell(F + 1, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(F, C)
          Next F
     Next C


Set MSWord = Nothing
Set Documento = Nothing
Set Parrafo = Nothing

End Sub