Bueno, podrías hacer algo como esto en el botón Vender:
Código:
Dim Resta As Long
Resta = rst!cantidad - txtvender
If Resta <= txtstock Then
MsgBox "Inferior al Stock"
Else
' actualiza el campo de la tabla
rst!cantidad = Resta
rst.Update
' actualiza el TextBox
txtcantidad.Refresh
End If