各位老师，我想选择listview一行数据，删除Access数据库对应的数据，数据库连接成功，可是实现不了，也没有错误提示。不知是代码问题还是数据库问题。
部分代码是：
Call OpenCNN
SQL = "delete from 数据表 where 序号=" & ListView1.SelectedItem & ""  
RST.Open SQL, CNN, 1, 3
Set RST = CNN.Execute(SQL) '执行删除语句
Set RST = Nothing
CNN.Close
请各位老师帮助，谢谢！

RST.Open SQL, CNN, 1, 3
修改为
RST.Open SQL, CNN, 3, 2 看看

谢谢老师，试了，还是删除不了。
打开方式是Access2016，这个有关系吗？不懂！

[此贴子已经被作者于2017-8-24 12:14编辑过]

有没有错误提示？一般删除一条记录，使用下面的语句：

Call OpenCNN    '这个是连接数据库的吗，怎么感到不对劲，不知道你的这个 OpenCNN 是不是一个函数或过程，不是的话，肯定不行的，按下面代码，应该没有问题。
Dim Cnn As New ADODB.Connection, RS As New ADODB.Recordset   '定义ADO对象
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\数据库名.accdb;Jet OLEDB:Database Password=;"    '连接2007以上版本的Access数据库的语句，修改数据表名称就可以
Cnn.Open   '打开数据库
SQL = "Select * from 数据表 where 序号=" & ListView1.SelectedItem & ""  '连接数据表的SQL语句
RS.Open SQL, Cnn, 3, 2    '打开记录集
RS.Delete    '删除记录
RS.Close
Set RS = Nothing
Cnn.Close

谢谢版主老师！已经好了。