Codigo para disminuir stock no funciona bien

   Estimados buen dia por aqui, en San Luis , Argentina.

Tengo un código que esta en un subformulario de ventas el cual tiene un campo "Cantidad" (nos centraremos en ese campo que es el que me esta causando problemas en el codigo) Antes que nada aclarar que tanto en la tabla, el la consulta y en el formulario el formato es Numerico, fijo y 0 decimales.

La consulta DisminuirStock es una consulta que depende de las tablas "tbProductos" 
relacionado por Id a la tabla "tbSalidas" y los campos son "Id" de 
"tbProductos" , "CantVentas" de "tbSalidas"

El codigo lo que debe hacer es agregar a la "tbSalidas" el valor que este en el campo cantidad al presionar el boton Guardar.

El problema es que si en el campo "Cantidad" coloco 1 el codigo en la tabla coloca 2 en lugar de 1, el codigo es el siguiente:

Private Sub Guardar_Click()
    Dim rs As DAO.Recordset
    Set rs = Me![VentaRapidaSub Subformulario].Form.RecordsetClone

    rs.MoveFirst

    Do Until rs.EOF
        ' Obtener el código del producto
        Dim Codigo As String
        Codigo = rs("Codigo")

        ' Actualizar la tabla DisminuirStock para el producto actual
        Dim strSQL As String
        strSQL = "UPDATE DisminuirStock SET DisminuirStock.CantVentas = DisminuirStock.CantVentas + " & CInt(rs("Cantidad")) & " WHERE DisminuirStock.Id = '" & Codigo & "'"

        CurrentDb.Execute strSQL

        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
MsgBox "El Stock de los Productos se ha Actualizado correctamente.", vbInformation, "Actualizar Stock"
DoCmd.GoToRecord , , acNewRec
End Sub

Saludos