ипользуй метод OpenSchema объекта ADO connection, на мой взлуд - самый простой способ.
'************************************************************************************************************
' Получаем список таблиц базы Access.'
'*************************************************************
Private Sub AccessTableList()

Dim rstTD As New ADODB.Recordset

If cnnA.State = 1 Then

' Получение списка таблиц базы с использованием метода OpenSchema

Set rstTD = cnnA.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

Do While Not rstTD.EOF
lstTable.AddItem rstTD.Fields("TABLE_NAME").Value
rstTD.MoveNext
Loop

rstTD.Close
intBaseType = 2
fraTable.Caption = "Список таблиц базы " & CutR(strA, "\")
Else
MsgBox "Нет подключения к базе Access!", vbCritical + vbOKOnly, "Ошибка подключения"
intBaseType = 0
fraTable.Caption = "Список таблиц"
End If

End Sub

Сначала, естсно, нужно сделать соединение с базой (cnnA в нашем случае)