Столкнулся с такой же проблемой. Если в Text1.Text записать дату вида dd.MM.yyyy то запрос выполняется успешно, а если Text1.Text пустое то ошибка. CDate, Format не помогают, Null тоже не проходить. Неделю лазею на форуме и вообще по нету ответа так и не нашел. Буду рад любой помощи. Вот один из вариантов моего запроса

soedin.Execute "insert into Svodn (Дата_рождения, KeyF, KeyD, KeyM) " & _
"values (#" & txtRojd.Text & "#, '" & fio & "', '" & dol & "', '" & mest & "')"
rstsvod.Requery

' Дата_рождения - поле формата Дата/время в Access

дата может водится, а может и не вводиться

Dim dat As Variant
If txtRojd.Text = "" Then
dat = CDate(txtRojd.Text)
dat = Format(dat, "dd.mm.yyyy")
Else
dat = txtRojd.Text
End If

У меня четыре таких поля Дата\Время в Access И как сделать параметризованный запрос??

Я еще зеленый (мало знаю VB), поэтому можно по подробней! что за функция Date2NULL("text") и вообще у меня поля Дата\Время значение Null не воспринимают. При
Dim dat1 As Variant
dat1 = Null
soedin.Execute "insert into Svodn (Дата_рождения, KeyF, KeyD, KeyM) " & _
"values (#" & dat1 & "#, '" & fio & "', '" & dol & "', '" & mest & "')"

пишет: дата содержит синтаксическую ошибку

Так как у меня несколько полей вида Дата\Время, то перебирать их все накладно (т.е. в какие данные ввели, а в какие нет) Пришел к такому решению:

If IsDate(txtRojd.Text) = True Then
dat1 = CDate(txtRojd.Text)
Else
dat1 = IsDate(Nothing) 'здесь почему-то в поле вставляется "0:00:00" , я не понял?
End If

soedin.Execute "insert into Svodn (Дата_рождения, KeyF, KeyD, KeyM) " & _
"values ('" & dat1 & "', '" & fio & "', '" & dol & "', '" & mest & "')"
rstsvod.Requery

За тем пробегаюсь по всем строчкам в поле Дата_рождения, меняю 0:00:00 на Null

rstob.Open ("select Svodn.Дата_рождения From Svodn where Дата_рождения=#0:00:00#"), soedin, adOpenStatic, adLockOptimistic
If rstob.RecordCount > 0 Then
soedin.Execute "update Svodn Set Дата_рождения=Null Where Дата_рождения=#0:00:00#"
rstob.Requery
End If
Наверно можно как-нибудь это проще сделать, но это работает.
Спасибо за помощь, сам бы не догнал

DIM dat1 as String
If IsDate(txtRojd.Text) = True Then
dat1 = CDate(txtRojd.Text)
Else
dat1 = "Null" ' выдает ошибку: "Несоответствие типов данных в выражении условия отбора"
End If

За совет с update спасибо!

Когда txtRojd.Text пустое поле

Вот так выглядет моя конечная строка плюс еще несколько полей, но проблемма не вних.
soedin.Execute "insert into Svodn (Дата_рождения, KeyF, KeyD, KeyM) " & _
"values ('" & dat1 & "', '" & fio & "', '" & dol & "', '" & mest & "')

Сам так и не смог разобраться?