RunTime Error -2147352567 (80020009)

[Lhuffst]

Hi I have read several posts concerning this error but mine doesn't seem to match up.

I have a single form that has several text boxes. What I am trying to do is clear the text boxes when the form is opened. I get the above error everytime and I don't understand why. I checked the data tab and it is not tied to any table at this point. Does anyone have any ideas? Here is my code:

Private Sub Form_Open(Cancel As Integer)
   Set db = CurrentDb()
  'clear the fields
  nill = DSGStorageClear()
'DoCmd.GoToRecord , , acNewRec
End Sub

Function DSGStorageClear()
'clear the boxes
TxtContractNum = ""
TxtSubdivisionName = ""
LocationDescription = ""
BOXNum = ""
DateSentDSGBox = ""
DSGBoxNumOrdered = ""
end Function

Originally the text boxes were titled the same as the database field so I added txt to two of them to see if that was the problem and I still receive the same error.
Thanks
Lhuffst

 

[Lhuffst]

Must have been brain dead! I fixed the problem. The programmer before me had each text box tied to a field but this caused empty records to be inserted into the database. Since one of the operations that he was doing in 97 didn't convert cleanly, I decided not to bring them to a new record but a blank screen where they had to click save. I had removed the table from the data but forgot to do the text boxes. Thanks anyway.
sorry for wasting anyones' time.
Lhuffst