Access' ten Excel' e veri çekerken tarih formatı hk.

[tamer42]

Merhaba,

Access ortamından Excel' e veri çekerken;
Aşağıdaki kod üzerinde Tarih formatını bir türlü ayarlayamadım; Ekli hata mesajını veriyor.
Excel tablosunun da Tarih formatını gösteren ekran görüntüleri ekte sunulmuştur.

Nasıl düzenlenebilir?
Teşekkürler,

Public Sub GetTodaySales()
Call Connect

qDay = Format(Date, "d")
qMnth = Format(Date, "m")
qYear = Format(Date, "yyyy")
Today = qDay & "." & qMnth & "." & qYear


   With frmMain
        SQL = "SELECT * FROM tbl_Sales WHERE SalesDate=" & Date
        rs.Open SQL, cn, 1, 1
    
         .lblDashCount1.Caption = rs.RecordCount
    
        Call Disconnect
        Call Connect
        
        SQL = "SELECT sum(SumAmount) FROM sqlSales WHERE SalesDate=" & "#" & Today & "#"
        rs.Open SQL, cn, 1, 1
        
        If rs(0) > 0 Then
            .lblDashCount4.Caption = FormatNumber(rs(0))
        Else
            .lblDashCount4.Caption = FormatNumber(0)
        End If
    
   End With
   
Call Disconnect

End Sub