using ADO, assigning a date variable

[crowegreg]

Using an ADO recordset, when I'm assigning a date variable, if the date field is null, I'm receiving a type mismatch error.



Here's what I have:
dim straPurchaseOrderDate As Date
straPurchaseOrderDate = IIf(IsNull(rsta.Fields(3)), "", rsta.Fields(3))

When rsta.Fields(3) has a valid date, the code works properly. When rsta.Fields(3) has a value of Null, I receive the error.

[pbaldy]

You can't assign a zero length string to a date variable. Depending on what you want done in the event of a null, you can either assign 0 instead of "", or a default date of some sort, or??

[crowegreg]

Thanks. Assigning the 0 is exactly what I needed.

[pbaldy]

Happy to help.