Formulário Vendas atualizar estoque [erro]

Bom dia

Tenho uma tabela de Produtos com os campos:
Codigo
Grupo
CodigoBarras
CodigoFornecedor
DescricaoCodigoUnidade
Estoque
EstoqueMinimo
PrecoUnitario

No formulário de Vendas tenho os campos:
txtDescricao
txtCodigoBarras
txtCodigo = código do produto da tabela
txtEstoque = Estoque atual do produto selecionado
txtPrecoUnitario
txtQtde
txtSubTotal

No botão Incluir coloquei uma consulta e o seguinte código abaixo:

Código:


    Dim qtd, qtd2 As Double
    Dim sql1 As String
    qtd = DLookup("[Estoque]", "[tblProdutos]", "[Codigo] = " & Me.txtCodigo)
    If qtd <= 0 Or qtd <= Me.txtEstoque Then
    MsgBox "O estoque está zerado" & vbCrLf & "ou número em estoque menor do" & vbCrLf & "que a quantidade informada.", _
    vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
    Me.txtCodigoBarras.SetFocus
    'Me.txtCodigoBarras.Dropdown
  ElseIf qtd > 0 Or qtd <= Me.txtEstoque Then
   
        If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
        qtd2 = (qtd - txtEstoque)
        sql1 = "UPDATE tblProdutos SET tblProdutos.Estoque = " & qtd2 & " WHERE (((tblProdutos.Codigo)=" & Me.Codigo & "));"
        CurrentDb.Execute sql1
        Else
        Me.Undo
        Me.txtCodigoBarras.SetFocus
        'Me.txtCodigoBarras.Dropdown
        End If
    End If


E esta acontecendo o seguinte: eu pegou um produto para efetuar a venda, sendo que ele tem 100 no estoque, mas quando clico no botão aparece essa mensagem:
MsgBox "O estoque está zerado" & vbCrLf & "ou número em estoque menor do" & vbCrLf & "que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"

Alguem pode me ajudar?

Bom dia

Alguém por favor?