远程数据库连接程序的打包问题，急！！！附代码

Private db As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cmd As New ADODB.Command

Public Function SqlConnectString(ServerName As String, UserName As String, password As String) As String
SqlConnectString = "Provider=SQLOLEDB.1;User ID=" + UserName + ";Pwd=" + password + ";Data Source=" + ServerName
End Function

Public Sub connectDB()
If db.State = 1 Then
db.Close
End If
db.ConnectionString = SqlConnectString("123.123.123.123", "test", "password")
db.CursorLocation = adUseClient
rs.CursorLocation = adUseClient
On Error Resume Next
db.Open
db.DefaultDatabase = "TestDB"
Set cmd.ActiveConnection = db
rs.Open "select top 1 * from TestTB order by time desc", db, adOpenDynamic, adLockOptimistic
If Err Then
MsgBox Err.Description & Err.HelpContext
Else
MsgBox rs.field(0).value
End If
db.Close
End Sub

----------------------------------------------------
以上代码在本机调试可以连接远程的数据库，没有任何问题，但是用VB自带的打包程序打包成SETUP，在其他的WIN98机器下安装后就是不能访问数据库。
请各位帮忙，谢谢！