I need some help with the following

When I open this DB and click on a label which supposed to open a calendar
form I'm getting the following error message

1. there is no object in the control and it give me 3 option 1. end, 2.
Debug, 3. Help

when I click on Debug it brings me to the following codes.

Private Sub Label36_Click()

If Me.frm_DateChooser.Visible = False Then
Label36.Caption = "Hide Calendar..."
Me.frm_DateChooser.Visible = True
Forms!frm_MainScreen!frm_DateChooser.Form.src = "main"
If Text34 "" Then
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Text34
Else
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If
Else
Label36.Caption = "Show Calendar..."
Me.Text34.SetFocus
Me.frm_DateChooser.Visible = False
End If

End Sub

with the following line in yellow -
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If

Can some one pls tell me what I need to do so I can fix this problem

thank You

Archived from group: microsoft>public>vb>directx