[Visual Basic] Работа с таблицей в Access

[Reaper052]

Выручайте. Есть рабочий код:

Private Sub add_Click()
Dim b As Integer
Dim rs As Recordset
b = Комбинированная3.Value
Set rs = CurrentDb.OpenRecordset("SELECT * FROM sklad WHERE item_code = " + Str(b))
rs.Edit
rs!Left = rs!Left - Поле8
rs.Update
Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Zakaz_tovar")
rs2.AddNew
rs2!zakaz_code = Поле6
rs2!item_code = Комбинированная3
rs2!kol = Поле8
rs2.Update
rs2.Bookmark = rs.LastModified
Sum = Sum + Val(Поле8.Value) * Val(Поле0.Value)
Поле9 = Sum
Поле8.SetFocus
Поле8.Text = ""

Нужно, чтобы при попытке ввести в "Поле8" количество товара большее имеющегося на складе (таблица "Sklad", столбец "left") система выдавала предупреждение, и данные не вносились.