[Resolvido]Somar campos de uma tabela

Nobres amigos.

tenho uma tabela com apenas uma linha e 6 colunas. Essa tabela recebe valores Integer.

Estou precisando de uma função que some todos os valores dessa tabela e transfira o resultado para uma Var.

Alguém pode me ajudar?

Dim curX As Integer
curX = DSum("ColunaA", "SuaTabela")+DSum("ColunaB", "SuaTabela").....

Ou em uma consulta sumarizada

Dim curX As Integer
curX = dlookup("suaColuna","nomedaconsulta")

Caro amigo Nois. Obrigado pela ajuda incrível.

Resolvi da seguinte forma

Como a tabela tem apenas uma linha e não tem incrementação de linha, os dados são apenas atualizados, criei uma coluna chamada "total" e inseri uma expressão de dado calculado somando as células.

No form eu criei a variável e inseri o código, onde VarCod recebe o valor 1 que é o nr do registro da linha.

VarCont = DLookup("Total", "tbl_Contador", "Código=" & VarCod)


Grande abraço e obrigado pela ajuda

fórum agradece