(20/01/2020, 00:58)berduş yazdı: Aşağıdaki kodu dener mişiniz?
Dim adoRecSet As New ADODB.Recordset
Set adoRecSet = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not adoRecSet.EOF
Debug.Print adoRecSet.Fields("TABLE_NAME").Value
adoRecSet.MoveNext
Loop
adoRecSet.Close
Set adoRecSet = Nothing
Bu kod çalıştı elinize sağlık.