VB 6.0 conexión a base de datos

Espero que me puedas ayudar y gracias por darme un poco de tu tiempo.

Estoy haciendo un proyecto en VB 6.0 con conexión a base de datos(mi base de datos es de pantalones) con ADODB y Dataenviroment un combinación entre los dos la cosa es que tengo un formulario de ingreso de mercaderías y en un botón programe para que cuando me ingresara nuevo producto si el código existe en la base de datos donde tengo el inventario que la cantidad que entra se le sumara a la existencia y me funciona y todo pero en VB cuando abro el formulario del inventario no se actualiza si no que se actualiza hasta que cierro toda la aplicación y cuando la vuelvo a ejecutar ya me aparece la suma pero yo quiero que se actualice sin cerrar toda la aplicación mi pregunta es de como hacer o como programar un botón para que se actualice la base de datos o para que se actualice el formulario sin poder cerrar la aplicación espero que me hayas entendido.

Este mi código para hacer la operación de sumar el producto que entra con la existencia que esta en la tabla no se si hay otra manera tal vez mas eficiente de hacerlo quiero que me lo comentes Gracias:

Private Sub CMD_GUARDAR_Click()
Set COMPRAS = New ADODB.Recordset
COMPRAS.Open "select * from TBL_PANTALONES where CODIGO_PANTALON = '" & CDbl(txtCODIGO_PANTALON.Text) & "'", VCONEXCION, adOpenKeyset, adLockOptimistic
If Not (COMPRAS.EOF And COMPRAS.BOF) Then
COMPRAS.Fields("EXISTENCIA") = COMPRAS.Fields("EXISTENCIA") + CDbl(txtCANTIDAD.Text)
COMPRAS.Update
DTE_PANTALONES.rsCMD_INGRESO_MERCADERIAS.Update
MsgBox "EL REGISTRO HA SIDO GUARDADO CON ÉXITO"
End If
End Sub