Utilizando um controle DATAGRID fica assim eu acho mais interressante nao precisa ocupar-se com montagem de colunas

‘carregar tabela

strsql = "select data_transacao.data,transacao.receita,transacao.despesa,transacao.mao_de_obra "

strsql = strsql & "from transacao inner join data_transacao on "

strsql = strsql & "transacao.id_transacao = data_transacao.id_transacao"

realizaconexao

set dg1.datasource = rs

‘dg1 é o nome do datagrid

dg1.refresh

‘criar coluna total e exibi-la no datagrid

strsql = "select data_transacao.data,transacao.receita,transacao.despesa,transacao.mao_de_obra,"

strsql = strsql & "receita-(despesa+mao_de_obra) as total "

strsql = strsql & "from transacao inner join data_transacao on "

strsql = strsql & "transacao.id_transacao=data_transacao.id_transacao "

realizaconexao

set dg1.datasource = rs

dg1.refresh

‘funcao manipula tabela colocada num módulo

public sub realizaconexao()

set con = new adodb.connection

with con

    .connectionstring = "provider=microsoft.jet.oledb.4.0"

    .cursorlocation = aduseclient

    .open app.path & "controlecaixa.mdb"

end with

set cmd = new adodb.command

with cmd

    .activeconnection = con

    .commandtext = strsql

    .commandtype = adcmdtext

    .execute

end with

set rs = new adodb.recordset

set rs.activeconnection = con

with rs

    .cursortype = adopenkeyset

    .cursorlocation = aduseclient

    .open cmd

end with

end sub