初学者请问VB 6.0发布打包程序有关问题

菜鸟请教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.****.net/detail/veron_04/1421217
http://download.****.net/detail/veron_04/1483921
------其他解决方案--------------------
order与money是系统保留字，建议不要作为表名或字段名使用，一定要用则用方括号