CONFIGURACAO FLEXGRID

  
[ô]Aqui formato as colunas do mesmo
Sub FormataGridTotaisPorHistoricoMovimento()
    Dim WsHeader As String
    With TDBGrid7
        .Clear
        WsHeader = [Ô]|Histórico                                                                         |Total Pago                             |Comissão                             [Ô]
        .FormatString = WsHeader
        .Rows = 1
        .FixedRows = 1
        .Cols = 4
        .SelectionMode = 1
    End With
End Sub
[ô]Aqui preencho o grid com as iformaçoes
Sub PreencherGridTotaisPorHistorico()
    On Error GoTo ErrorLine
    Dim o As Integer: Dim p As Integer
    Set Recordset1 = New ADODB.Recordset
  strsql = [Ô]select finanhistorico,sum(finanvalorpago) as total,sum(financomissao) as totalcomissao from auxclientesfinan where finanfilial=[ô][Ô] & MDIForm1.Stabar1.PanelCaption(2) & [Ô][ô] and finandataquitacao Between [ô][Ô] & Format$(txtIni.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô] And [ô][Ô] & Format$(txtFim.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô] group by finanhistorico order by finanhistorico[Ô]
  Recordset1.Open strsql, Conexao, adOpenStatic, adLockReadOnly
    Call FormataGridTotaisPorHistoricoMovimento
    If Recordset1.RecordCount > 0 Then
        With TDBGrid7
            While Not Recordset1.EOF
                .AddItem Recordset1!finanhistorico & _
                         Chr(9) & Recordset1!finanhistorico & _
                         Chr(9) & Format(Recordset1!total, [Ô]currency[Ô]) & _
                         Chr(9) & Format(Recordset1!totalcomissao, [Ô]currency[Ô])
                Recordset1.MoveNext
            Wend
            .Row = 1: .Col = 0
        End With
        Recordset1.Close
        Set Recordset1 = Nothing
    Else
        TDBGrid7.Clear: TDBGrid7.Row = 0: TDBGrid7.Col = 0: Call FormataGridTotaisPorHistoricoMovimento
    End If
  Exit Sub
ErrorLine:
    MsgError
  End Sub