Sub sayfaisimlerinial(ByRef DosyaUzunismi As String, ByRef Sayfaisimlerilistesi() As String)

    Dim objBaglanti As Object
    Dim adoverisi As Object
    Dim sayfaindis As Long
    Dim adobaglanti As String
    Dim sayfaisimleri As String
    
    Erase Sayfaisimlerilistesi()
    
    adobaglanti = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaUzunismi
    
    Set objBaglanti = CreateObject("ADODB.Connection")
    objBaglanti.Open adobaglanti
    Set adoverisi = objBaglanti.openschema(20)
    
    Do While Not adoverisi.EOF
        If LCase(Left(adoverisi.Fields("TABLE_NAME").Value, 4)) <> "msys" Then
            sayfaisimleri = adoverisi.Fields("TABLE_NAME").Value
            sayfaisimleri = Replace(adoverisi.Fields("TABLE_NAME").Value, "''", "'")
            ReDim Preserve Sayfaisimlerilistesi(0 To sayfaindis)
            Sayfaisimlerilistesi(sayfaindis) = sayfaisimleri
            sayfaindis = sayfaindis + 1
        End If
        adoverisi.movenext
    Loop
    
    adoverisi.Close
    Set adoverisi = Nothing
    objBaglanti.Close
    Set objBaglanti = Nothing


End Sub