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
tablo adlarını OpenSchema yöntemiyle alma da eklendi 2sinden birini seçebilirsiniz