tablo adlarını OpenSchema yöntemiyle alma da eklendi 2sinden birini seçebilirsiniz

Private Sub ListTables()

Dim statement As String

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim fld As ADODB.Field



cbTabloAdiopenschema.RowSource = ""

Set rs = CurrentProject.Connection.OpenSchema(adSchemaTables, _

        Array(Empty, Empty, Empty, "Table"))

    Do While Not rs.EOF

        cbTabloAdiopenschema.AddItem rs!TABLE_NAME

    rs.MoveNext

    Loop

    

rs.Close



End Sub

aslında 2010da sorun çıkarmaması gerekirdi ama anlamadım o nedenle deneme amaçlı tablodaki alanları silip hem mdb hem de accdb formatlı olarak yeniden ekledim