Проверка на NULL

[AlexM]

Нужно проверять не пустое ли поле в таблице с помощью функции IsDBNull.

Например:

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

If Not IsDBNull(DR01("ProfBCountry")) Then
   DT01 = CDate(DR01("ProfBCountry"))
Else
   DT01 = ""
End If