[Resolvido]Erro em tempo de execução '6' Estouro

Bom dia

Venho novamente pedir ajuda dos amigo.
estou cadastrando no sistema e apareceu esse erro no lançamento de uma nota Erro em tempo de execução '6' Estouro.
na depuração vai direto para essa linha

Código:

'-- VAlida qtde informada na NOTA c/ total informado na Ata
Private Function ValidaQtde() As Boolean
Dim vQtdItemNF  As Integer
Dim vQtdItem    As Integer


    '-- Define função como VERDADEIRA
    ValidaQtde = True

    '-- Carrega qtde total do subitem informado na aba Item
    vQtdItem = Nz(DSum("qtde_subitem", "tbl_Ata_Subitens", "id_ata = " & Me.Id_Ata & " AND id_subitem = " & Me.cboSubitemNF & ""), 0) ' Erro nessa Linha
  
    '-- Carrega qtde total do subitem informado na aba Notas
    vQtdItemNF = Nz(DSum("qtde_nf_subitem", "tbl_Nota_Subitens", "id_ata = " & Me.Id_Ata & " AND id_subitem = " & Me.cboSubitemNF & ""), 0)
    vQtdItemNF = vQtdItemNF + Me.txtQtdeNF
    
    
    '-- Compara os valores para não informar qtde acima do que está gravado na tbl_Ata_Subitens
    
    If vQtdItemNF > vQtdItem Then
        MsgBox "A quantidade total de subitens na Nota ultrapassa a quantidade total de subitens informada na Ata.", vbExclamation, "Aviso"
        ValidaQtde = False   '-- DEFINE COMO FALSA
    End If
    
End Function)

alguem pode me ajudar

Flavio,

Manda uma cópia do seu bd atualizado, por gentileza.
Assim, fica mais fácil analisar.

Só pra eu entender, vc fez alguma alteração no carregamento do combo "cboSubitemNF" ?

No aguardo.

Att

Fim

Consegui arrumar, o problema era a Variavel estava Dim vQtdItemNF As Integer
Dim vQtdItem As Integer eu alterei para Long e foi.

Muito obrigado

Aeeeee.....melhor ainda !!!
Já resolveu a parada !!!
Muito bom...
Sucesso