数据库移植问题（求各位大侠帮忙！）

Question

小弟刚学VB，用VB+SQL SERVER做的简单数据库查询程序只能在自己的机子上运行，拷贝到别人的机子上就不能运行。小弟使用的控件是ADODC，我只是通过向导建立了DSN数据源，把它跟SERVER连上，然后就只是实现查询功能，生成可执行文件，把工程到别人的电脑上就不能运行了。有哪位大侠能告诉我还要怎么做，才能实现移植功能，小弟在这里拜上了！
最好能给出详细的注释，比如建一个表yy：
                                  a   b
                                  1   1
                                  2   2
在窗体上加个查询按钮，按钮按下就显示出整张表。

Answer 1

应该是DSN数据源的问题，建议在别人的机器上重新设置一下数据源

Answer 2

说的不够详细，你在本机上怎么配的DSN，在另外的电脑上有没有配，还有程序不能运行的报错，只有说的详细了，才能知道问题可能出在哪儿！！！

Answer 3

用代碼嗎？在代碼建立連接，很簡單的！
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rsdata As New ADODB.Recordset
Dim ssql As String
ssql = "Provider=MSDataShape.1;Persist Security Info=False;Connect Timeout=45;Driver={SQL Server};Server=服務器名;;User Id=登入名稱;Password= 登入密碼;Initial Catalog=數據庫名;Data Provider=MSDASQL.1"
cn.Open ssql
If cn.State = 1 Then
  MsgBox "連接數據成功"
Else
  MsgBox "連接數據不成功"
End If
ssql = "select * from 表名  where "　　'要執行的SQL語句。
rsdata.Open ssql, cn, adOpenKeyset, adLockReadOnly
If rsdata.EOF = True Then
  MsgBox "the table no record"
  rsdata.Close
  Exit Sub
Else
   MsgBox Trim(rsdata!emp_name)
   rsdata.Close
End If
end sub