VB，我想点击删除按钮删除被选中的DataGrid其中一行？怎么办

以下是删除按钮代码...rec要定义...dim rec as new recordset
If rec.RecordCount < 1 Then
MsgBox ("未找到数据信息,请确认!"), vbOKOnly, "错误"
Exit Sub
Else
If MsgBox("数据删除不可恢复,请确认!", vbYesNo) = vbYes Then
rec.Delete
rec.MoveNext
rec.Requery
End If
End If