[求助]odbc连接问题

zhowgx

在启动的第一个窗体加载事件中写入如下代码,亦可连接.

    Dim con As Object
    Dim rs As Object
    Dim stSql As String

    Set con = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    stSql = "SELECT *FROM " & 表名 & " IN '' [ODBC;DSN=" & ODBC名& ";Description=" & ODBC说明& ";UID=saWD=;DATABASE=" & 数据库名 & ";Network=DBMSSOCN] "
    rs.Open stSql, con, 1

三个数据库就写三次