求助，如何把ListView1内数据更新到SQLite数据库
我想把数据库内的数据根据用户编号进行更新，判断用户编号是否存在，如果存在就批量更新，不存在就批量录入Private Sub Command12_Click()
Dim i As Integer
Set rs = cnn.OpenRecordset("Select * from 用户明细") ' 打开员工信息表的记录集
' 遍历列表视图中的每一行数据
For i = 1 To ListView1.ListItems.Count
' 获取当前行的每个字段数据
Dim id As String
Dim name As String
Dim age As Integer
Dim department As String
' 从 ListView 中获取数据
XM = ListView1.ListItems(i).ListSubItems(1).Text
PY = ListView1.ListItems(i).ListSubItems(2).Text
XB = ListView1.ListItems(i).ListSubItems(3).Text
ZZMM = ListView1.ListItems(i).ListSubItems(4).Text
YGBH = ListView1.ListItems(i).ListSubItems(5).Text
MM = ListView1.ListItems(i).ListSubItems(6).Text
YGXZ = ListView1.ListItems(i).ListSubItems(7).Text
GZGW = ListView1.ListItems(i).ListSubItems(8).Text
GZSJ = ListView1.ListItems(i).ListSubItems(9).Text
DH = ListView1.ListItems(i).ListSubItems(10).Text
GZZT = ListView1.ListItems(i).ListSubItems(11).Text
RZSJ = ListView1.ListItems(i).ListSubItems(12).Text
LGSJ = ListView1.ListItems(i).ListSubItems(13).Text
SFZH = ListView1.ListItems(i).ListSubItems(14).Text
BZ = ListView1.ListItems(i).ListSubItems(15).Text
ABZ = ListView1.ListItems(i).ListSubItems(16).Text
' 检查数据库中是否已存在相同的用户编号
rs.FindFirst "用户编号='" & YGBH & "'"
If rs.EOF Then ' 如果数据库中没有找到相同的用户编号就录入
rs.AddNew ' 添加新记录
Else ' 如果数据库中已经存在相同的用户编号就更新
rs.Fields("地区").Value = XM
rs.Fields("本数").Value = PY
rs.Fields("用户编号").Value = XB
rs.Fields("户名").Value = ZZMM
rs.Fields("详细地址").Value = YGBH
rs.Fields("蓝牌地址").Value = MM
rs.Fields("单元").Value = YGXZ
rs.Fields("楼层").Value = GZGW
rs.Fields("户号").Value = GZSJ
rs.Fields("用户状态").Value = DH
rs.Fields("应用分类").Value = GZZT
rs.Fields("保单类型").Value = RZSJ
rs.Fields("保单到期日").Value = LGSJ
rs.Fields("报警器安装人").Value = SFZH
rs.Fields("核对标记").Value = BZ
rs.Fields("备注").Value = ABZ
rs.UpdateBatch ' 保存更新的数据
End If
rs.MoveNext ' 移动到下一条记录
Next i
End Sub
点击导入数据
在点击批量更新，但是没成功
批量更新.rar
(4.47 MB)
请老师帮忙看看如何处理
