If (rst!数量 >= Me.数量) Then
Dim number As Integer
number = rst!数量
number = number - Me![数量]
rst!数量 = number
rst.Close
Set rst = Nothing
MsgBox "商品成功出库!"
sql = "当前库存数量为:" & number
MsgBox sql
Exit Sub
Else
MsgBox "该商品库存量不足,不能出库"
Exit Sub
End If