Подскажите где ошибка в Access.

[UliyaP]

Привет!!!!
Помогите не могу найти ощибку.
У меня есть текстовое поле в таблицы, оно в основном пустое. Мне надо его заполнить.....

Код: Выделить всё


Sub Hardware()
Dim MyDB As Database, Rs As Recordset, Rs1 As Recordset
   Set MyDB = DBEngine.Workspaces(0).Databases(0)
   Set Rs = MyDB.OpenRecordset("dbo_SALESTABLE", DB_OPEN_TABLE)
     Rs.MoveFirst
Do Until Rs.EOF
k = Rs![GoodsType]
        If (k = "") Then
             Rs![GoodsType] = "Hardware"
             Rs.Update
             End If
           Rs.MoveNext
           Loop
  End Sub


При этой программе пустые поля не заполняются, я смотрю пошагово и получается, что полне не "", а Null...
Подскажите где надо исправить...
Заранее спасибо....

[Konst_One]

Код: Выделить всё

SQL="UPDATE dbo_SALESTABLE SET GoodsType='Hardware' WHERE GoodsType IS NULL"

MyDB.Execute SQL