Não é de bom gritar (é o que mensagens em caixa alta significam na net); mas segue uma possibilidade:
Supondo que a inserção de registro seja atraves de um botão.Então insira no formulario um, por exemplo Label de nome lblQtde.
No botão de cadastro coloque:
If lblQtde.caption="" then
lbl.Qtde.caption=1
else
lbl.Qtde.caption=Val(lblQtde).caption+1
end if

Reinaldo, fiz conforme disse mas deu um erro dizendo que o meu qualificador está invalido

If lblQtde.Caption = "" Then
lbl.Qtde.Caption = 1
Else
lbl.Qtde.Caption = Val(lblQtde).Caption + 1

End If

Ops!!
deve ser Val(lblQtde.Caption) +1

inseri..

só que quando clico em inserir o item ele encerra o meu userform.

Não entendi, nada haver
Pode disponibilizar o seu exemplo?? ás vezes um pequeno senão em outra parte pode causar isso