菜鸟请教VB 6.0发布打包程序问题
我自己用VB 6.0做了一个程序，只用到两个控件：adodc，datagrid。我用自带的package & deployment向导一路“下一步”最后生成了一个“包”文件夹，我拷到别人电脑上（别人电脑没装VB）上安装时提示“您的系统中某些系统文件过时了，安装无法继续，如果希望立即更新这些文件，请点确定 #￥%”，点确定后，提示是否立即重启，重启后发现程序没安装上，快捷方式也没有，c盘里也没有。

然后我用了setup factory这个工具，把我生成的工程1.exe和控件用到的MSADODC.OCX，MSDATGRD.OCX，另外加上MSVBVM60.DLL一起打包成一个独立的setup.exe。在别人电脑上安装顺利完成，但是运行工程1的时候弹出错误“运行时错误‘9’ 下标越界”。我也百度了下标越界问题，是和数组有关系。可是我的vb代码里没有任何数组。

代码如下：

Private Sub Command1_Click()

With Adodc1
Adodc1.ConnectionString = "此处就不写了，总之是对的"
Adodc1.RecordSource = "select lot,order,money From clot_order where order like '" & Text1 & "%'"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(2).Width = 3000
End With
End Sub

Private Sub Command2_Click()
With Adodc1
Adodc1.ConnectionString = "此处就不写了，总之是对的"
Adodc1.RecordSource = "select lot,order,money From clot_order where lot like '" & Text2 & "%'"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(2).Width = 3000
End With
End Sub

Private Sub Command3_Click()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "此处就不写了，总之是对的"
Adodc1.RecordSource = "select lot,order,money From clot_order order by lot"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(2).Width = 3000
End With

Text2 = ""
With Adodc2
Adodc2.ConnectionString = "此处就不写了，总之是对的"
Adodc2.RecordSource = "select num From firstnum"
Adodc2.Refresh
DataGrid2.Refresh
End With
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Command5_Click()
With Adodc1
Adodc1.ConnectionString = "此处就不写了，总之是对的"
Adodc1.RecordSource = "select lot,order,money From clot_order order by lot"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(2).Width = 3000
End With

With Adodc2
Adodc2.ConnectionString = "此处就不写了，总之是对的"
Adodc2.RecordSource = "select num From firstnum"
Adodc2.Refresh
DataGrid2.Refresh
End With
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
With Adodc1
Adodc1.ConnectionString = "此处就不写了，总之是对的"
Adodc1.RecordSource = "select lot,order,money From clot_order order by lot"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(2).Width = 3000
End With

With Adodc2
Adodc2.ConnectionString = "此处就不写了，总之是对的"
Adodc2.RecordSource = "select num From firstnum"
Adodc2.Refresh
DataGrid2.Refresh
End With

End Sub

请问问题出在哪里？
[最优解释]
别人的电脑是否打上了sp3补丁
[其他解释]
wise我用了很多年了，没有太多问题。

我的下载里有。
[其他解释]
http://download.csdn.net/detail/veron_04/1421217
http://download.csdn.net/detail/veron_04/1483921
[其他解释]
order与money是系统保留字，建议不要作为表名或字段名使用，一定要用则用方括号

"select lot,[order],[money] From clot_order order by lot"

[其他解释]

引用:

order与money是系统保留字，建议不要作为表名或字段名使用，一定要用则用方括号
"select lot,[order],[money] From clot_order order by lot"

我知道，语句里面原来是很复杂的字段名，我简化了一下。
这个不是主要问题，关键是发布问题。