Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sq1 As String
If MsgBox("是否确认删除数据吗?", vbYesNo + vbExclamation, "删除数据") = vbNo Then Exit Sub
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Checked = True(复选框勾选为TRUE的) Then
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\DATEBASE\数据库.mdb;User ID=; Jet OLEDB:database Password = 密码"
sq1 = "Delete from 表 Where ID=" & ListView1.ListItems(i).SubItems(读出ID的那个列)
cn.Execute (sq1)
cn.Close
Set cn = Nothing
ListView1.ListItems.Remove (i)
End If
Next i