caricamento griglia in vb con una riga in + :(

[amodio]

io nel seguente codice per caricare una flexgrid mi ritrovo una riga vuota in + perche? grazie

  FlexGrid.Rows = 1
  Dim a
  a = 0
    
    FlexGrid.Rows = FlexGrid.Rows + 1
    FlexGrid.Row = a
    FlexGrid.Col = 1
    FlexGrid.Text = rs("data").Name
    FlexGrid.Col = 2
    FlexGrid.Text = rs("soggetto").Name
    FlexGrid.Col = 3
    FlexGrid.Text = rs("causale").Name

             a = 1
    
    FlexGrid.ColWidth(0) = 0
    FlexGrid.ColWidth(1) = 1500
    FlexGrid.ColWidth(2) = 1900
    FlexGrid.ColWidth(3) = 2400

      While Not (rs.EOF)
   
    FlexGrid.Rows = FlexGrid.Rows + 1
    FlexGrid.Row = a
    
       FlexGrid.Col = 1
    FlexGrid.Text = Format(rs("data"), "dd/mm/yyyy")
    FlexGrid.Col = 2
    FlexGrid.Text = rs("soggetto")
    FlexGrid.Col = 3
    FlexGrid.Text = rs("causale")
        
   
    rs.MoveNext
    a = a + 1
   
  Wend