Public Sub Main()
    '读取数据库配置文件
    Open (App.Path & "\DataBase.ini") For Input As #1
    Line Input #1, Intext
    Server = Mid(Intext, 10, Len(Trim(Intext)) - 9)
    Line Input #1, Intext
    uid = Mid(Intext, 7, Len(Trim(Intext)) - 6)
    Line Input #1, Intext
    pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6)
    Close #1

    '附加数据库
    On Error Resume Next
    con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=db_oa;Data Source=217.17.228.102:6001"
    con.Open     '打开数据库连接
    Set rs = New ADODB.Recordset
    '开始附加数据库
    Str = "EXEC sp_attach_db @dbname = N'db_OA', @filename1 = N'" + App.Path + "\DataBase\db_OA_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataBase\db_OA_Log.LDF" + "'"
    '  rs.Open str, con, 1, adLockOptimistic
    Set rs = con.Execute(Str)
    con.Close  '关闭数据库连接
    '共享连接字符串
    PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=;Initial Catalog=db_OA;Data Source=217.17.228.102:6001"
    frm_login.Show
End Sub

配置文件也修改了成了以下：

[server]=217.17.228.102:60001
[uid]=sa
[pwd]=



注意：
//[server]代表 SQL Server数据库 服务器名称。例如：[server]=Good
//[uid] 代表   数据库登录名称。             例如：[uid]=sa
//[pwd] 代表   数据库登录密码。             例如：[pwd]=007

切记：避免空格！！！

我是通过外网来连接的，里面不需要ADODC不需要设置连接字符串的，在局域网可以多用户使用，一切正常，但是在广域网中总是连接不了，提示SQL不存在拒绝访问，端口也映射了，防火墙也关了，标准模块中的连接字符串也修改了，tcp/ip也开启了，也开启了 sql server的SQL Server Integration Service服务了。