有关SQL！！！急急！！！

Question

你都换服务器了，连接串当然会变，不该程序又能怎么办呢？你可以把服务器名放注册表中，或者变量中，拼一下字符串就行了。
另外：你可以给的分数和你的参与分有关，参与分很低的时候能给的分也很少

Answer 1

你定义全局变量String型~
然后让用户自己设置服务器机器名~~
在把机器名付给全局变量~~~
例如变量名为Server
Dim cn As New ADODB.Connection
    cn.Open "provider=sqloledb.1;data source='" & Server & "';initial catalog=密码库;" _
    & "user id=sa;password=;"
Dim rs As New ADODB.Recordset
rs.Open "密码表", cn, 1, 3
怎么样成功了吗？