Segue :
Do While Not TBSaldo.EOF
With MSFlexGrid1
.Rows = i + 1
.ColAlignment(0) = flexAlignCenterCenter ' alinha coluna
.TextMatrix(i, 0) = i - 0 ' autonumeração colocar zero para poder começar com 1
.ColAlignment(1) = flexAlignCenterCenter
.TextMatrix(i, 1) = TBSaldo(0)
.ColAlignment(2) = flexAlignLeftCenter
.TextMatrix(i, 2) = TBSaldo(1)
.ColAlignment(3) = flexAlignCenterCenter
.TextMatrix(i, 3) = TBSaldo(2)
End With
i = i + 1
SomaColuna = SomaColuna + TBSaldo(2)
TBSaldo.MoveNext
Loop
' Textbox com o total da coluna
Text1.Text = SomaColuna
Outra coisa, defina o número de linhas (use o recordcount) e colunas do grid
antes do loop que vc ganha performance. Tb pode usar a API LockWindowUpdate
para fazer o preenchimento mais rápido ainda visto que a atualização de tela, que
gasta um bom tempo do total, ficará desabilitada nesse meio tempo.