Access'ten veri alındığında çıkan hata

[İsmail Küçükşengün]

Merhaba;

Private Sub CommandButton1_Click()
Sheets("access").Select
Range("A30:AF30").ClearContents
Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim Nsql As String, Njoin As String, Ncriteria As String
   Dim NewBook As Workbook
   Dim PathToDatabase As String
   Dim i As Integer
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open Application.ActiveWorkbook.Path & "\deneme.mdb"
    End With
    Nsql = "SELECT BURO.* FROM BURO;"
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
    End With
    Range("A30:AF30").ClearContents
    For i = 0 To rst.Fields.Count - 1
    Range("a30").Offset(0, i).Value = rst.Fields(i).Name
    Next i
    Range("a30").CopyFromRecordset rst
    conn.Close
    Unload Me
   
    UserForm2.Show
End Sub

Koduyla excel sayfasına veri aldığımda;

Access tablodaki İstanbul 34 olarak geliyor. Keza ilçe de rakam olarak geliyor.

Metin olarak gelmesi için nasıl bir yol izlenmeli?

Dosyam ektedir.

Şimdiden teşekkürler.

 

[İsmail Küçükşengün]

Sayın üstatlar;

Bu sorunumun çözümü için öneri ve yardımlarınızı bekliyorum

Selamlarımla.