Sub PrintTableNames ()
Dim Td As TableDef
' 设置数据库文件。
Data1.DatabaseName = "BIBLIO.MDB"
Data1.Refresh ' 打开数据库。
' 读入并输出数据库中每个表的名称。
For Each Td in Data1.Database.TableDefs
Debug.Print Td.Name
Next
End Sub
set cn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
cn.ConnectionString="provider=sqloledb;datasource=local server;uid=scjswuser;pwd=11111111"
cn.Open
rs.ActiveConnection =cn
rs.CursorType=3
rs.Open "select * from "& adb &" where "&acustomcon