Datepicker to show todays date

[ipbr21054]

I have a userform where i have a datepicker on it.
I open the form & currently i see the date as 31/07/2024 as opposed todays date.

Where do i mkae the change to show the date correctly

 

[ipbr21054]

I have this code in use but see the eror message when i open form.

Private Sub UserForm_Initialize()
    Me.Datepicker1.Value = Date
        '-------------------------------
    Me.StartUpPosition = 0
    Me.Top = Application.Top + 100  ' MARGIN FROM TOP OF SCREEN
    Me.Left = Application.Left + Application.Width - Me.Width - 250 ' LEFT / RIGHT OF SCREEN
  
    '-------------------------------
    
    ' to populate vehical list combobox1
    With Me.ComboBox1
        .RowSource = ""
        .List = Sheets("INFO").ListObjects("Table2").DataBodyRange.Value
        .MatchRequired = False
    End With

End Sub

 

[ipbr21054]

Datepicker name was different,now both the same it works