哪位能提供一个adodc和datagrid的删除例子

Question

哪位能提供一个adodc和datagrid的删除例子'以下是我写的，但有问题
Private Sub cmdDelete_Click()
   
   If MsgBox("确认删除当前业务信息吗？流程信息也将被删除。", vbInformation + vbOKCancel, pTitle) = vbOK Then
      With Adodc1.Recordset
         .Delete
         .MoveNext
         If .EOF And Not .BOF Then .MoveLast
      End With
   End If
   
   
End Sub

Answer 1

Private Sub cmdDelete_Click()
   
   If MsgBox("确认删除当前业务信息吗？流程信息也将被删除。", vbInformation + vbOKCancel, pTitle) = vbOK Then
      With Adodc1.Recordset
         .Delete       
         If .EOF And Not .BOF Then .MoveLast
      End With
   End If
   
   
End Sub

Answer 2

用sql试一下
dim cn as adodb.connection
dim rs as adbdb.recorset
dim sqlstr as string
dim a as string 
set cn =new adodb.connection
cn.open(自己写数据库打开语句)
set rs=cn.recordset
adodc1.recordsource=rs.execute (delete * from 表名)
cn.close
adodc1.refresh
可能拼写有错误