Dim cnn As ADODB.Connection
Dim cat As ADOx.Catalog

Set cnn = New ADODB.Connection
cnn.Provider =  "sqloledb" 
cnn.ConnectionString =  "Server=host;User ID=sa;password=1 ; catalog = pubs"
cnn.Open

Set cat = New ADOx.Catalog
Set cat.ActiveConnection = cnn

Dim aTable As ADOx.Table

For Each aTable In cat.Tables

 If aTable.Type =  "TABLE"  Then Debug.Print aTable.Name;  "-" ; aTable.Type

Next aTable

cnn.Close

cnn.ConnectionString =  "Server=host;User ID=sa;password=1 ; Initial Catalog=Pubs"

cnn.ConnectionString =  "Server=host;User ID=sa;password=1 ; сatalog=Pubs"