Amodio, xchè non semplifichi un po' il codice? Vedi un po':

Sub CaricaGriglia()

FlexGrid.Rows = 1
Dim a

a = 0

FlexGrid.TextMatrix(a, 1) = rs("data").Name
FlexGrid.TextMatrix(a, 2) = rs("soggetto").Name
FlexGrid.TextMatrix(a, 3) = rs("causale").Name

a = 1

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

Do Until rs.EOF

FlexGrid.Rows = FlexGrid.Rows + 1

FlexGrid.TextMatrix(a, 1) = Format(rs("data"), "dd/mm/yyyy")
FlexGrid.TextMatrix(a, 2) = rs("soggetto")
FlexGrid.TextMatrix(a, 3) = rs("causale")

rs.MoveNext
a = a + 1

Loop

End Sub

Ciao