vb编的小程序安装运行错误问题

我在win7上编了一个小程序，是一个收费程序，单机用的，打包后在xp上安装，总提示系统什么程序比较旧，要重启系统，然后还是出现这样的情况，无法安装成功。。。,在vb打包的程序下有support文件夹，直接执行.exe文件，说类未注册,求大神帮助说明一下

Private Sub Form_Load()
'Dim NameSTR As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\vb1\KScount.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Tcount"
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\vb1\KScount.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from Tcount1"
Set DataGrid2.DataSource = Adodc2
DataGrid2.Refresh
For I = 0 To 22
    Form2.DataGrid2.Columns(I).Width = 1400
   
Next I
For I = 0 To 24
      Form2.DataGrid1.Columns(I).Width = 1400
Next I

Form2.Text1.Text = DataGrid2.Columns(22).Text & "元"
Label2.Caption = "日期:" & Format(Date, "yyyy-m-d")
'Form2.Picture = LoadPicture(App.Path + "\vb1\m.jpg")
For I = 0 To 21
   With Text2(I)
       Set .DataSource = Adodc2
            .DataField = Adodc2.Recordset.Fields(I).Name
   End With
Next I
End Sub

[此贴子已经被作者于2017-7-13 14:18编辑过]