ADO é um componete de conexao q coloque no relatorio
with Relatorio
.ADO.ConnectionString = CN_String 'string de conexao
.ADO.Recordset = rsTB 'o recordset, a tabela
.FieldDATA.DataField = "DATA" 'field.....do relatorio, e DATA um campo da tabela
.FieldDEBITO.DataField = "DEBITO" 'idem acima
.FieldCREDITO.DataField = "CREDITO" 'idem acima
.FieldSALDO.DataField = "SALDO" 'idem acima
'*********resumo do extrato ************
.FieldTDEBITO.Text = Me.LblDEBITO.Caption
.FieldTCREDITO.Text = Me.LblCREDITO.Caption
.FieldTSALDO.Text = Me.LblSALDO.Caption
.FieldTDEBITO.ForeColor = Me.LblDEBITO.ForeColor
.FieldTSALDO.ForeColor = Me.LblSALDO.ForeColor
.FieldLANCAMENTOS.Text = Me.LblLancamentos.Caption
.LblRodape.Caption = "Impresso em " & MinhaData & " - Controle financeiro - Alfterra"
.Show 1
End With
captou?