Desculpe, O arquivo não foi anexo.

Agora sim. O banco de dados ultrapassa o tamanho permitido.

O anexo só tem o arquivo excel compras.xls, faltou o BD "Base.mdb".

Pela rotina de Somar:

Private Sub CommandButton1_Click()
'Código cópiado do Planilhando = http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=2752&start=10
Dim lngRunningTotal1 As Double

For i = 1 To ListView1.ListItems.Count
    lngRunningTotal1 = lngRunningTotal1 + CDbl(ListView1.ListItems(i).ListSubItems(7))
Next
    txtSubtotal.Caption = lngRunningTotal1
End Sub

Você está fazendo referencia ao controle de nome "ListView1" e em seu form o controle está com o nome "lstLista", ajuste o nome e veja se não é este o problema.

[]s

Mauro,

Eu ajustei o nome Listview para Lstlista, mas agora código está dando erro de Variável não definida. não estou conseguindo resolver. Veja abaixo, o erro está em azul:

For i = 1 To lstLista.ListItems.Count

Se for somente este o erro, é so Declarar a Variavel:

Coloque no inicio da rotina:
Dim i as Long

[]s

Mauro,

Excelente ajuda.

Muito obrigado mesmo. Ninja do Excel.

Abraços.