Помогите обработать пустые текстовые поля

Используется при записи данных в БД следующий код:

rs.Fields("ID") = txtSid.Text
rs.Fields("фирма") = txtSName
rs.Fields("Адрес и телефон") = txtSAdress
rs.Fields("Расчётный счёт") = txtSRS
rs.Fields("Корсчёт") = txtSKS
rs.Fields("Банк") = txtSBank
rs.Fields("ИНН:") = txtSINN
rs.Fields("БИК") = txtSBik
rs.Fields("Примечание:") = txtSPrim

rs.Update

Если при записи данных есть пустое поле скажем txtSINN="", то при записи выдаётся ошибка "Filed 'Firma.ИНН:' can't be a zero-length string"

Помогите обработать пустые поля и произвести запись в БД


Заранее Благодарен!!!