Change The Date By Hitting Th Edit Button

I have this data from a sheet in date format in cell "A1". i retrieve the value of the date in a textbox. TextBox1.Value = Range("A1").Value then i wanted to change the date by hitting th edit button

private sub CommandButton1_Click()
DTPicker.Value = Range("A1").Value
End Sub

after changes have made, button save is clicked and at the same time the value from DTPicker is send to cell "A1", the value is retrieve back into TextBox1

private sub CommandButton2_Click()
Range("A1").Value = DTPicker.Value
TextBox1.Value = Range("A1").Value
End Sub

don't know what happen suddenly the value inside the cell become 12:00:00 AM, while the actual value that were supposed to be in that cell and textbox is 12/1/1999 - which is 12th of january 2001