campo data da lasciare vuoto

[xamax]

Salve a tutti
il problema del giorno.......

ho un database access che visualizzo, modifico ed aggiorno con un datagrid.
Un campo del db è un campo data che devo riempire con una data solo in determinati casi.
il problema è che quando edito il record se non inserisco una data nel campo in questione va in errore

Come posso fare in modo che se legge il campo data vuoto non vada in errore e nel db non scriva nulla

dim DatConsTx 'valore che scriverò nel db
dim DatConsTxCheck =(Ctype(e.Item.Cells(20).Controls(0), TextBox)).Text 'recupero dal db la data che potrebbe anche essere vuota
if DatConsTxCheck = "" then
DatConsTx ="" ' ho provato anche con
Else
DatConsTx = FormatdateTime(DatConsTxCheck, 0)' se c'è una data non va in errore
End iF

spero di essere stato comprensibile...
ciao

[xamax]

dim DatConsTx 'valore che scriverò nel db
dim DatConsTxCheck =(Ctype(e.Item.Cells(20).Controls(0), TextBox)).Text 'recupero dal db la data che potrebbe anche essere vuota
if DatConsTxCheck = "" then
DatConsTx ="" ' ho provato anche con DatConsTx = Null
Else
DatConsTx = FormatdateTime(DatConsTxCheck, 0)' se c'è una data non va in errore
End iF



Avevo dimenticato un pezzetto

[xamax]

ho risolto così:

dim DatConsTx
dim DatConsTxCheck =(Ctype(e.Item.Cells(20).Controls(0), TextBox)).Text
if DatConsTxCheck ="" then
DatConsTx = "Null"
Else
DatConsTx = "'"&FormatdateTime(DatConsTxCheck, 0)&"'"
End iF


nell'UpDATE:

DatCons = "& DatConsTx &"

Grazie comunque e ciao a tutti