Você pode usar uma instrução de atualização:
Private Sub AtualizarTabela()
Screen.MousePointer = 11
sSql = "SELECT * FROM tblFinanceiros"
Rst.Open sSql, cnBd, adOpenKeyset, adLockOptimistic
Rst.MoveMin
Do While Not Rst.EOF
If seu critério para zerar a tabela = True Then
Rst!Valor = 0 'zerou o campo
Rst!Valor2 = 0 'zerou o campo
Rst!Valor2 = 0 'zerou o campo
End If
Rst.Update
Rst.MoveNext
Loop
Screen.MousePointer = 0
MsgBox "Atualização efetuada com sucesso ", vbExclamation, "Apuração!!"
Exit Sub
End Sub