求助。VB生成的安装包连接的access数据库不能更新

求助各位高手，用VB6.0做了个程序，里面有和Access数据库连接，但是生成的安装包安装后使用，access里面的数据不能更新。求解决办法。 --------------------编程问答-------------------- 更新语句及错误代码呢？ --------------------编程问答-------------------- 在VB上是可以更新的。我是一个问卷，就是每个用户做完题后每个题的分数自动保存到access，在vb上运行是没有问题的，生成的安装包不行。 --------------------编程问答-------------------- Private Sub Command5_Click()
Dim j, k
a = Val(Label9.Caption)
b = Val(Label11.Caption)
c = Val(Label13.Caption)
d = Val(Label15.Caption)
e = Val(Label17.Caption)
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Set cnn = CreateObject("adodb.connection")
Set rs1 = CreateObject("adodb.recordset")
Set rs2 = CreateObject("adodb.recordset")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
rs1.Open "select * from IIEF5", cnn, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1.Fields("问题1分数") = a
rs1.Fields("问题2分数") = b
rs1.Fields("问题3分数") = c
rs1.Fields("问题4分数") = d
rs1.Fields("问题5分数") = e
rs1.Fields("姓名") = Text1.Text
rs1.Fields("年龄") = Text2.Text
rs1.Fields("性别") = Combo1.List(j)
rs1.Fields("婚否") = Combo2.List(k)
rs1.Fields("总分") = a + b + c + d + e
f = a + b + c
g = a + b + c + d + e
rs1.Update
rs1.Close
rs2.Open "select * from 内容", cnn, adOpenDynamic, adLockOptimistic
rs2.Fields("用户信息") = "姓名：" & Text1.Text & "     " & "性别：" & Combo1.List(j) & "     " & "年龄：" & Text2.Text & "岁" & "     " & "婚否：" & Combo2.List(k)
rs2.Fields("诊断意见IIEF") = "评分结果：" & Chr(13) & Chr(10) & "您在IIEF-5评分中，涉及勃起功能的3个问题得分" & f & "分，性生活总体满意度得分" & d & "分，对阴茎勃起及维持勃起的自信心问题得分" & e & "分，总评分为" & g & "分。"
If g >= 22 Then
rs2.Fields("诊断结果") = "诊断意见：" & Chr(13) & Chr(10) & "无勃起功能障碍"
ElseIf g >= 12 Then
rs2.Fields("诊断结果") = "诊断意见：" & Chr(13) & Chr(10) & "轻度勃起功能障碍"
ElseIf g >= 7 Then
rs2.Fields("诊断结果") = "诊断意见：" & Chr(13) & Chr(10) & "中度勃起功能障碍"
Else
rs2.Fields("诊断结果") = "诊断意见：" & Chr(13) & Chr(10) & "重度勃起功能障碍"
End If
rs2.Update
rs2.Close
Command5.Visible = False
Command6.Visible = True

End Sub --------------------编程问答-------------------- 有没有错误代码？看你上面的代码没什么问题

补充：.NET技术 ,  VB.NET