Access - Access 2016. No coinciden los tipos.

Private Sub Guardar_click()

On Error GoTo err:

'Variables de ejecucion

Dim Id_elemento As Integer

Dim CantActualInv As Integer

Dim Cantidad_ent As Integer

Dim NvaCant As Integer

'Anular valores nulos en la asignacion de valores

Id_elemento = Nz(Me.Elemento.Value, 0)

Cantidad_ent = Nz(Me.Cantidad.Value, 0)

'Buscar datos en Lista de Inventarios

Dim Rst As DAO.Recordset

Dim sql As String

sql = "SELECT * FROM [Producto] US WHERE US.[Elemento]=" & Id_elemento

Set Rst = CurrentDb.OpenRecordset(sql)

If Rst.EOF Then

        MsgBox "No existente en inventario"

    Else

        'Accion al Encontrar el producto en lista de inventario

        'Actualizar Cantidad de Inventario

        CantidadActualInv = Rst![Cantidad]

        NvaCant = Cantidad_ent + CantidadActualInv

        Rst.Edit

        [Cantidad] = NvaCant

        Rst.Update

Rst.Close

Set Rst = Nothing

End If

DoCmd.GoToRecord , , acNext

Exit Sub

err:

MsgBox err.Description

End Sub