VB 用EXCEL 当数据库出现奇怪的问题

VB 连接EXCEL 做数据库语句代码
If Dir(App.Path & "\yz.kib") <> "" Then
cn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=" & App.Path & "\expro.xlsx" & ";Extended Properties='Excel 12.0;HDR=yes'" 'excel数据库连接
Else
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\expro.xls" & ";Extended Properties='Excel 8.0;HDR=yes'" 'excel数据库连接
End If
YZ.KIB 是验证EXCEL版本的文件!
写入的方式
Call rs1.Open("select * from [Sheet4$]", cn1, 1, 3, adOpenKeyset)
rs1.AddNew
rs1.Fields(0) = Label11
rs1.Fields(1) = 9999
rs1.Fields(2) = Text7.Text
rs1.Fields(3) = Text8.Text
rs1.Update
rs1.Close

成功操作后.查询数据库,数据都是存在的.正常关闭程序,数据也是存在的
但是,直接在任务管理器里面结速掉VB 程序,数据都丢失了!

为什么还要有
 Call rs1.Open("select * from [Sheet4$]", cn1, 1, 3, adOpenKeyset)

打开记录集正确的话，还要用CALL这类调用干什么？看起来有点不习惯

  一般打开数据库直接用rs2.Open "Select * From chanping where item='" & Left(Items, (Len(Items) - 4)) & "'", cn2, 1, 1 

  你改一下这个打开记录集的方式

Call rs1.Open 是因为,我做了一个连接数据库的模块.

我现在注要问题是.如果程序不被强制关闭,所有都正常.但就是程序被强制关闭后,在上一次没有正确关闭前所做的数据都会没有!