Cita:
Iniciado por Baco_ 
Private Sub CmdGuardar_Click()
Dim SumaCantidad As Integer
Conectar
rs1.Open "Select Sum(Cantidad) as SumaCantidad From Ingreso Where Producto = '" & TxtProducto & "'", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1!SumaCantidad
rs1.Close
End Sub
Quizá lo entendí mal pero por lo que veo tú quieres sumar todas las cantidades de cada producto y compararlo no??
pues mira prueba de hacer esto:
rs1.Open "SELECT producto, SUM(Cantidad) FROM Ingreso WHERE producto = '" & TxtProducto & "' GROUP BY producto", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1("cantidad")
rs1.Close
Ahy te devolverá el sumatorio del producto que hayas elejido.
saludos