VB打包问题!

[swxandwf]

小弟我刚用VB+SQLSERVER编写了一个程序,现碰到一个问题很难解决.
现有一个服务器端,几个客户端,客户端要访问服务器端,本来客户端手机配置ODBC就可以了,但这样出现了很多的问题.有没有好一点的办法?上网查了一些资料,发现有一个办法可以解决:
Private Sub RegisterDataSource()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
'建造关键字字符串。
strAttribs = "Description=" _
& "SQL Server on server SEQUEL" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=SEQUEL" _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=WorkDB" _
& Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"

'建立新的注册的 DSN。
rdoEngine.rdoRegisterDataSource "示例", _
"SQL Server", True, strAttribs
'打开数据库。
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
dsname:="示例", _
Prompt:=rdDriverNoPrompt, _
Connect:="UID=;PWD=;")

End Sub
但我调试不出来,有没有懂一点的朋友帮我改改,或者有更好的办法?
我的数据库名:gtmis
服务器名:chinaserver或IP为:192.168.0.1
DSN:dsn_gtmis
username:sa
password:空

请高手为我指点迷津呀!

[springswallow]

直接用ADO就很方便啊
G_servername="192.168.0.1"
Set g_conn = New Connection
g_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gtmis;Data Source=" & G_Servername
g_conn.Open g_str

[swxandwf]

我还是不懂呀,能不能详细的和我说一下呀,我的QQ:33312806

[aohan]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>"

上面以变量的方式写入就可以了,你的初始变量可以存在文件中或注册表中供程序读取