[求助]odbc连接问题

hxntxm

我做了一个MDB文件，在控制面板里做了一个ODBC数据源与Sqlserver2000连接，但每次启动都要手动按连接属性，很讨厌，希望用代码在启动时自动连接Sql，我需要同时连接3个Sql数据库，请提供代码，多谢！

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

三个数据库就写三次

hi-wzj

直接用acc中的链接即可。