FORMAT(Tarih, 'dd.mm.yyyyy') Excelde böyle yapınca hata olmazken Accesste hata oluyor.

.Open "Select id,FORMAT(Tarih, 'dd.mm.yyyyy') as Tarih,Ad,Soyad,Yas,Telefon From Tablo1 ", cn, , , 1

Sub Ac()

    With cn
        If .State = adStateOpen Then
            .Close
            Set cn = Nothing
        End If
    End With

    Set cn = CurrentProject.Connection

    With rs
        If .State = adStateOpen Then .Close
        .CursorType = adOpenDynamic
        .CursorLocation = 3
        .LockType = adLockOptimistic
        .Open "Select id,FORMAT(Tarih, 'dd.mm.yyyyy') as Tarih,Ad,Soyad,Yas,Telefon From Tablo1 ", cn, , , 1
    End With
    
    Lstbox.ColumnCount = 6
    Lstbox.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"
    Lstbox.ColumnHeads = True
    Set Lstbox.Recordset = rs
  
    
End Sub

yyyyy yazmışım yyyy olacaktı.Böyle yapınca düzeldi.

.Open "Select id,FORMAT(CLng(DateSerial(Right(Tarih, 4), Mid(Tarih, 3, 2), Left(Tarih, 2))), 'dd.mm.yyyy') as Tarih,Ad,Soyad,Yas,Telefon From Tablo1 ", cn, , , 1