VB中,Listview中的数据如何存入 access 的表中

我建了一个listview来显示ACCESS中的内容, 我希望做的是,当我把LISTVIEW里面的内容修改或添加后,能存入ACCESS中.我在网上找到了这段代码,但怎么都没法用,请高手帮忙.
Dim index, k, j As Integer
Call OpenConn
sql = "select * from " & TName
rs.Open sql, cn, 1, 1
rs.MoveFirst
For Each Items In ListView1.ListItems '列出全部选项
Items.Selected = True
If index <= rs.RecordCount - 1 Then '表示修改没有新增
rs.Fields(0).Value = Items.Text
For k = 1 To Items.ListSubItems.Count
rs.Fields(i).Value = Items.ListSubItems.Item(i).Text
Next
rs.MoveNext
Else '表示新增
rs.AddNew
rs.Fields(0).Value = Items.Text
For j = 1 To Items.ListSubItems.Count
rs.Fields(j).Value = Items.ListSubItems.Item(j).Text
Next
End If
index = index + 1
Next
rs.MoveLast
rs.Update
Call CloseConn

用Update语句实现

sqlstr = "select * from 记录" 这句改为如下试试 sqlstr="select field1,field2,...fieldn from 记录 where 新=true"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息