删除记录的问题？

Question

在DATAGRID2中有一些记录（是上一部分操作添加产生的，然后通过条件选择显示在DATAGRID2中）现在我想在COMMAND1中删除鼠标所选择的记录，但是运行错误提示“缺少用于更新或刷新的基本信息”
代码如下：
Dim str1 As String
str1 = MsgBox("确定删除？", vbYesNo)
If str1 = vbYes Then
Ado3.Recordset.Delete   ‘报错在这句上
Ado3.Refresh
DataGrid2.Refresh
End If

Answer 1

Ado3.Recordset.Delete默认删除一条记录，并无法删除你所选中的多条记录。建议搞个循环，来删除多条记录。

Answer 2

不是想一次删除多个记录，是在DATAGRID2中选中的一条记录

Answer 3

如果数据库中有数据，在Delete方法里按照
Dim str1 As String
str1 = MsgBox("确定删除？", vbYesNo)
If str1 = vbYes Then
Ado3.Recordset.Delete   '报错在这句上
Ado3.Refresh
DataGrid2.Refresh
End If
这样写是不会出错的。我试了。
问题应该是出在前面，你看看你的查询出的结果显示在DataGrid表里，是怎么写的？

Answer 4

前面的代码是在form的load事件中写的
Adodc2.RecordSource = "select * from 点单表 where 单据号= '" & djMaxValue & "'"
Adodc2.Refresh
DataGrid2.Refresh想在这里删除其中一行，代码如题所写的

Answer 5

前面的代码应该写在Command1_Click()方法里，写在Load事件里，会出现每次启动画面时执行Delete方法。