Формат поля = Дата + краткий формат времени - часы отображаются одной цыферой хоть задано ДВЕ!

Private Sub cmdOK_Click()
Dim vDate
    If CheckPreviousForm(sFormName) = True Then
        vDate = DateValue(Me!txtDate)
        vDate = DateAdd("h", Me!OptGroupHours, vDate)
        vDate = DateAdd("n", Me!OptGroupMinutes, vDate)
        Forms(sFormName).Controls(sControlName) = vDate
        Forms(sFormName).Refresh
    End If
    DoCmd.Close acForm, Me.Name
End Sub

Private Function TimePickerTimeFormat(vVal, Optional bInLongFormt As Boolean = False) As Variant
'Для формы где идёт отображение даты и времени
'Дальше в ControlSource пишем:
' = TimePickerTimeFormat([TestDateTime])
'или для длинного "Дата и Краткое Время":
' = TimePickerTimeFormat([TestDateTime];-1)
'----------------------------------------------------------------
    If IsDate(vVal) = True Then
        If bInLongFormt = False Then
            TimePickerTimeFormat = Format$(vVal, "hh:nn")
        Else
            TimePickerTimeFormat = Format$(vVal, "dd.mm.yyyy\ hh:nn")
        End If
    End If
End Function

Private Const sFildNameInRS$ = "TestDateTime" 'название поля в RecordSet формы
Private Const TimePickerFormName$ = "TimePicker_v008"
Private Sub cmdCalendar01_Click()
Dim sOpenArgs$
    sOpenArgs = Me.Name & ";" & sFildNameInRS & ";Short Time"
    DoCmd.OpenForm TimePickerFormName, , , , , , sOpenArgs
End Sub
 
Private Sub cmdCalendar02_Click()
Dim sOpenArgs$
    sOpenArgs = Me.Name & ";" & sFildNameInRS & ";Date and Short Time"
    DoCmd.OpenForm TimePickerFormName, , , , , , sOpenArgs
End Sub

Private Sub cmdOK_Click()
'Применяем выбранное:
Dim vDate
    If CheckPreviousForm(sFormName) = True Then
        Forms(sFormName).Recordset.Edit
        Forms(sFormName).Recordset.Fields(sControlName) = GetNewTimeFromFilds
        Forms(sFormName).Recordset.Update
        Forms(sFormName).Refresh
    End If
    DoCmd.Close acForm, Me.Name
End Sub