accesten veri alırken tarih formatı sorunu?

[pitsss]

arkadaşlar

 tarihbasla = Sheets("datalar").Range("a2")
 tarihbitir = now()
Set adoCN = CreateObject("ADODB.Connection")
    adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
    adoCN.ConnectionString = DatabasePath
    adoCN.Open
    NoA = Cells(65536, 1).End(xlUp).Row
    Set RS = CreateObject("ADODB.recordset")
        strSQL = "SELECT * FROM [tablo] " & _
    "WHERE    durum like 2 and tarih>=" & tarihbasla & " AND tarih<=" & tarihbitir & " order by tarih"
    RS.Open strSQL, adoCN, 1, 3
 RS.movefirst
       For i = 2 To RS.RecordCount
           Sheets("sayfa1").Cells(i, 1) = RS("tarih")
RS.MoveNext
        Next
 RS.Close
    adoCN.Close
    Set RS = Nothing

yukarıdaki kodlar ile verilerimi excele almak istiyorum ancak bir sorun var.
accesste bulunan tarih kolonundaki tarihler normal tarih ile yazılmamış.

39398
39396
38931
39753
39753
39753
39753
39753
39756
39762
39763
39763

şu şekilde veriler var.
bunu nasıl tarih formatına dönüştürerek alabilirim.
not:access veritabanında oynama yapamıyorum.

 

[Mahmut Kök]

Verileri hiç mi alamıyorsunuz yoksa alıyorsunuz da tarih formatında mı göremiyorsunuz?

 

[pitsss]

Verileri hiç mi alamıyorsunuz yoksa alıyorsunuz da tarih formatında mı göremiyorsunuz?

cevabınız için teşekkürler.
veri alma işleminden vazgeçtim.
teşekkürler