VBA 'da ADOX Catalog ile Veritabanı Tablo İsimlerini Almak

Private Sub Tablolar_()
'www.ExcelVBA.Net
Dim con As Object, kat As Object, tbl As Object , ac As String
Set con = CreateObject("adodb.connection")
Set kat = CreateObject("adox.catalog")
Set tbl = CreateObject("adox.table")
ac="c:\veritabani.xls"
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ac & _
                    ";Extended Properties=""Excel 8.0"""
kat.ActiveConnection = con
For Each tbl In kat.Tables
        ListBox1.AddItem tbl.Name
Next
End Sub