如何从Access VBA获取sql表列表

Question

我需要在sql数据库中找到一个值。 我在访问中连接了所有表，并编写了一个简单的代码来获取值。 现在我想将它扩展到使用连接字符串的所有可能的sql数据库但是选择FROM MSysObjects不能在sql上工作。 有什么建议吗？

Azienda = SOC(Y)
sConnString = "Provider=SQLOLEDB.1;User ID=sa;password=skipper;Initial
Catalog=" & Azienda & ";Data Source = server09;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"

conn.Open sConnString

Dim TN(1000) As String 'NOME TAB

strsql = "SELECT MSysObjects.Name AS table_name FROM MSysObjects"

filtro = " WHERE Left([Name],1)<>'~' AND Left([Name],4)<>'MSys' AND MSysObjects.Type In (1,4,6) order by MSysObjects.Name"

Dim CF As ADODB.Field

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

With rst

.Open strsql & filtro, CONN, adOpenDynamic, adLockReadOnly