请看下面一段代码：
Dim cnn As ADODB.Connection
Dim strcnn As String
'建立连接
strcnn = "provider=sqloledb;" & _
"data source=" & SerN1 & ";Integrated Security=SSPI;Persist Security Info=False;initial catalog= WorkDB;uid=sa;"
Set cnn = New ADODB.Connection
cnn.Open strcnn

问题是这样：有甲、乙两台微机，都安装了VB和SQL Sever2000，但是两台微机的名字不一样。比如，微机甲的名字是“wjj”，在其上安装的SQL Sever2000服务器的名字也是“wjj”；微机乙的名字“wjy”，在其上安装的SQL Sever2000服务器的名字也是“wjy”。我在微机甲上开发一个软件，用上面的一段代码来连接SQL Sever2000服务器，能够运行，查看变量“SerN1”是“wjj”。后来，我又在微机乙上运行这个软件，可是无法与SQL Sever2000服务器建立连接，查看变量“SerN1”，还是“wjj”，错误的提示说无法找到SQL服务器。
这个软件开始不是我编的，我不知道他是如何把数据库服务器的名字赋给“SerN1”的。
请教各位，如何解决这个问题，使我能在微机乙上运行这个软件？