Date Picker In Form - Default To Today Date

I'm trying to get a date picker to open with the current day's date, and am running into some trouble...

I added this line to the Initialize function:

Code:
Private Sub UserForm_Initialize()
DTPicker.Value = Date
End Sub

...and this to a button which opens the form:

Code:
Sub Open_frmPatientData()
frmPatientData.Show
frmPatientData.txtLastName.Value = ""
frmPatientData.txtFirstName.Value = ""
frmPatientData.txtID.Value = ""
frmPatientData.txtDay.Value = DTPicker1.Day
frmPatientData.txtMonth.Value = DTPicker1.Month
frmPatientData.txtYear.Value = DTPicker1.Year
End Sub

and I get a 'Run Time Error 424: Object Required' error on the line frmPatientData.show (in red). If I remove the line from the Initialize event, then everything works fine, but of course the current date isn't shown. What am I doing wrong?