Date problem with ASP.NET but not in VB.NET Winform App

Edited by SomeNewKid. Please post code between<code> and</code> tags.

---

Hello, I have given up after 3 hours of trying to get a DBNull.Value to be inserted into SQL 2000 DB. Below is the code that exists in an object that I use both from a VB.NET Windows application and from an ASP.NET application. (same exact compiled object dll). Has ran fine with windows application for almost a year - still does. Use the same object in my new ASP.NET application and I get a SQL Overflow error that says date must be between 1753 12 am etc etc... when trying to insert null using the code below.

This one has me stumped. The lines below where I set the date are basically this (what the logic equates to):

oDR.Item("CT_CustomDate1") = DBNull.Value
oDR.Item("CT_CustomDate2") = DBNull.Value

Error gets thrown when this line is executed:

oDA.Update(oDT)

Also, the CT_CustomDate1 & 2 fields in the SQL Server 2000 DB are of type SmallDateTime and the variables in object used in code function below are Date. I've tried every combination of Date, DateTime, SmallDateTime, etc. etc. to no avail.

Thanks for you help!

 Public Function AddNew(ByVal sGUID As String) As Boolean
 'Saves all new contact information to database
 Dim sSQL As String
 sSQL = "SELECT * FROM Contact WHERE 1=2"
 Dim oConn As New SqlConnection(sConnectionString)
 Dim oDT As New DataTable
 Dim oDA As New SqlDataAdapter(sSQL, oConn)
 Dim oDR As DataRow
 Dim bSuccess As Boolean
 Try
 oDA.Fill(oDT)
 Dim dataCommandBuilder As New SqlCommandBuilder(oDA)
 oDA.InsertCommand = dataCommandBuilder.GetInsertCommand
 oDA.DeleteCommand = dataCommandBuilder.GetDeleteCommand
 oDA.UpdateCommand = dataCommandBuilder.GetUpdateCommand
 oDR = oDT.NewRow
 oDR.Item("CT_GUID") = sGUID
 oDR.Item("CT_CompanyGUID") = CTCompanyGUID
 oDR.Item("CT_Prefix") = CTPrefix
 oDR.Item("CT_FirstName") = CTFirstName
 oDR.Item("CT_MiddleName") = CTMiddleName
 oDR.Item("CT_LastName") = CTLastName
 oDR.Item("CT_Suffix") = CTSuffix
 oDR.Item("CT_Title") = CTTitle
 oDR.Item("CT_ContactAddress") = CTContactAddress
 oDR.Item("CT_Address1") = CTAddress1
 oDR.Item("CT_Address2") = CTAddress2
 oDR.Item("CT_City") = CTCity
 oDR.Item("CT_State") = CTState
 oDR.Item("CT_Zip") = CTZip
 oDR.Item("CT_Country") = CTCountry
 oDR.Item("CT_InternationalPhone") = CTInternationalPhone
 oDR.Item("CT_Phone") = CTPhone
 oDR.Item("CT_Fax") = CTFax
 oDR.Item("CT_Cell") = CTCell
 oDR.Item("CT_AltPhone") = CTAltPhone
 oDR.Item("CT_Assistant") = CTAssistant
 oDR.Item("CT_AssistantPhone") = CTAssistantPhone
 oDR.Item("CT_NoEmail") = CTNoEmail
 oDR.Item("CT_EmailAddress") = CTEmailAddress
 oDR.Item("CT_Confidential") = CTConfidential
 oDR.Item("CT_TypeGUID") = CTTypeGUID
 oDR.Item("CT_Designation") = ""
 oDR.Item("CT_LastUpdate") = CTLastUpdate
 oDR.Item("CT_UpdatedByWho") = CTUpdatedByWho
 oDR.Item("CT_Location") = CTLocation
 oDR.Item("CT_CustomBit1") = CTCustomBit1
 oDR.Item("CT_CustomBit2") = CTCustomBit2
 oDR.Item("CT_CustomBit3") = CTCustomBit3
 oDR.Item("CT_CustomBit4") = CTCustomBit4
 oDR.Item("CT_CustomBit5") = CTCustomBit5
 oDR.Item("CT_CustomBit6") = CTCustomBit6
 oDR.Item("CT_CustomBit7") = CTCustomBit7
 oDR.Item("CT_CustomStr1") = CTCustomStr1
 oDR.Item("CT_CustomStr2") = CTCustomStr2
 oDR.Item("CT_CustomStr3") = CTCustomStr3
 oDR.Item("CT_CustomStr4") = CTCustomStr4
 oDR.Item("CT_CustomStr5") = CTCustomStr5
 oDR.Item("CT_CustomStr6") = CTCustomStr6
 oDR.Item("CT_CustomStr7") = CTCustomStr7
 oDR.Item("CT_CustomStr8") = CTCustomStr8
 oDR.Item("CT_CustomStr9") = CTCustomStr9
 oDR.Item("CT_CustomStr10") = CTCustomStr10
 oDR.Item("CT_CustomStr11") = CTCustomStr11
 oDR.Item("CT_CustomStr12") = CTCustomStr12
 oDR.Item("CT_CustomStr13") = CTCustomStr13
 oDR.Item("CT_CustomPhone1") = CTCustomPhone1
 oDR.Item("CT_CustomPhone2") = CTCustomPhone2
 oDR.Item("CT_CustomPhone3") = CTCustomPhone3
 oDR.Item("CT_CustomPhone4") = CTCustomPhone4
 oDR.Item("CT_CustomDate1") = IIf(CTCustomDate1 = #12:00:00 AM#, DBNull.Value, CTCustomDate1)
 oDR.Item("CT_CustomDate2") = IIf(CTCustomDate2 = #12:00:00 AM#, DBNull.Value, CTCustomDate2)
 'oDR.Item("CT_CustomDate1") = CDate(#1/1/1753#)
 'oDR.Item("CT_CustomDate2") = CDate(#1/1/1753#)
 oDR.Item("CT_CustomAmount1") = CTCustomAmount1
 oDR.Item("CT_CustomAmount2") = CTCustomAmount2
 oDR.Item("CT_CustomType1GUID") = CTCustomType1GUID
 oDR.Item("CT_CustomType2GUID") = CTCustomType2GUID
 oDR.Item("CT_CustomCompany1GUID") = IIf(CTCustomCompany1GUID = "00", DBNull.Value, CTCustomCompany1GUID)
 oDR.Item("CT_CustomCompany2GUID") = IIf(CTCustomCompany2GUID = "00", DBNull.Value, CTCustomCompany2GUID)
 oDR.Item("CT_CustomContact1GUID") = IIf(CTCustomContact1GUID = "00", DBNull.Value, CTCustomContact1GUID)
 oDT.Rows.Add(oDR)
 oDA.Update(oDT)
 CTGUID = sGUID
 bSuccess = True
 Catch err As Exception
 MsgBox("Error saving new contact..." & vbCrLf & vbCrLf & err.Message, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Database Error")
 bSuccess = False
 End Try
 AddNew = bSuccess
 End Function

Are you sure your ASP.NET application are referencing the same assemblies as the
WinForm?
Are they running under the same Framework version?
DataAccessApplicationBlock?

Regards
Fredriksql