Access - Calendar Control

[James890]

I'm wanting to use a calendar to select dates in Access 2003 and want it to pop up when a date field is clicked on. So I will want the same calendar to pop up to be used to select a date, from many differenct date fields on the form.

I've used a variable ('originator') to pass the date field name.
But it isn't working. Could someone check my code please?

(dob is the field I want the date to go into and Calendar6 is the name of the calendar I'm using.) Here's my code:

Option Compare Database
Option Explicit
Dim originator As ComboBox
Private Sub dob_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set originator = dob
Calendar6.Visible = True
Calendar6.SetFocus
If Not IsNull(originator) Then
Calendar6.Value = originator.Value
Else
Calendar6.Value = Date
End If
End Sub
Private Sub Calendar6_Click()
originator.Value = Calendar6.Value
originator.SetFocus
Calendar6.Visible = False
Set originator = Nothing
End Sub