VB模块化“识别数据库路径”

Question

我做的一个C/S的小程序，在每个窗体里都有这么一段代码：
Private Sub Form_Load()
 strCnn = "Driver={SQL server};server=FS;uid=sa;pwd=;database=yd" '自动识别数据库路径
 DBCnn.Open strCnn
End Sub
如果是在工作站上把server=FS改成server=“服务器的IP，如192.168.0.1”就行了，是吗？
但每个窗体都得改，太麻烦了，大家有什么好方法？

Answer 1

在模块中定义一个全局的adodb.connection，整个工程中都可以使用

Answer 2

http://download.csdn.net/detail/veron_04/1371356

Answer 3

我在模块中定义了：
Public DBCnn As New ADODB.Connection   '定义全局标量用于连接数据库
Public strCnn As String                '连接字符串
Public cmd As ADODB.Command            '命令
strCnn = "Driver={SQL server};server=FS;uid=sa;pwd=;database=yd"
DBCnn.Open strCnn
但总是提示“编译错误：无效外部过程!”

Answer 4

http://www.huchuanhao.cn/article.asp?id=25