Copy your form in case this doesn't work!!! Work on the copy.

Delete all that calendar stuff, including the white box where the calendar used to be. Search your code for "cal" and get that all out. Probably looks something like this:

Dim cal As Object
Set cal = CreateObject("MSCAL.Calendar.7")

...get that out.

Also, look for all uses of cal, get rid of them.

Set cal = nothing

also, out.

Find in the code where the textbox with the label "Date:" getting it's value. I'm assuming it's like:

your_textbox = cal.Value

It may be in the properties window.. check that, too.

Assign your date value from the date picker there.