diplay combobox list in date format

Private Sub cboCoveredBondSubType_AfterUpdate()
Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\CovBonds\CB.mdb"
    Dim strRange As String

    If NewProgramAdded <> True Then
   
    strRange = "SELECT DISTINCT [cboReportingDate] FROM dbo_tblCoveredBonds Where [cboExistingCoveredBondProgram] = '" & cboExistingCoveredBondProgram & "' AND [cboCoveredBondType] = '" & cboCoveredBondType & "' AND [cboCoveredBondSubType] = '" & cboCoveredBondSubType & "' ORDER BY [cboReportingDate] DESC;"
   
    rst.Open strRange, _
             cnn, adOpenStatic
    rst.MoveFirst
    With Me.cboReportingDate
        .Clear
        Do
            .AddItem VBA.Format(rst![cboReportingDate], "dd/mm/yyyy")
            rst.MoveNext
        Loop Until rst.EOF
    End With
    Set rst = Nothing
    Set cnn = Nothing
    End If