Try this...

Dim cnDB As ADODB.Connection
Dim rs As New ADODB.Recordset

Set cnDB = New ADODB.Connection

cnDB.Open "Connect string here "

Set rs = cnDB.OpenSchema(adSchemaTables)

Do Until rs.EOF
Select Case rs!TABLE_TYPE
Case "SYSTEM TABLE"
Debug.Print "System : " & rs!Table_Name
Case Else
Debug.Print rs!Table_Name
End Select
rs.MoveNext
Loop
rs.Close
......