Estou com um probleminha na hora de somar todos os registros de uma tabela.

Tenho a SQL o SUM no campo e uso GROUP BY. Porém na hora de apresentar o valor da soma dá um erro no current record. Alguém sabe como posso fazer somar todos os valores de uma coluna da tabela? E apresentar o valor em label depois.

O problema deve ser o group. coloque o codigo aqui para dar uma olhada.

 

Para somar faca

Dim rst as recordset

    Set rst = cnn.OpenRecordset("SELECT sum(valor) as total from pagamento where status = 1 ", dbOpenSnapshot)

 

label1 = rst.fields![total]
ou

label1 = rst.fields!("total")

Valew cara mas não funcionou. Então eu fiz assim:

 

dim var soma as integer

varsoma = varsoma + RSsoma!valor

dentro do Loop

depois lbl = Cdbl(varsoma)