VB在datagrid删除选中信息

Private Sub Command3_Click()
Dim ssql As String
ssql = "select*from b2"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open conn
rst.Open ssql, cnn, adOpenForwardOnly, adLockOptimistic
rst.Delete
rst.Update
rst.Close
MsgBox "删除成功"

End Sub
我编写的代码可以在datagrid中删除信息，但每次删除的都是第一行，怎么样可以删除指定的信息啊？

ssql = "select * from b2 where id=" & PID & ""
PID是需要删除记录的ID

朋友，看你的代码，好像datagrid1与 adodc1相关联了的。 那么，你用adodc1.recordset.delete 应该能行。 如果你非要用对象 rs1来删除的话，请在前面用set rs1 = adodc1.recordset 根据你现在的代码看，你可以改成下面的样子： private sub command1_click() dim qr as string set rs1 = adodc1.recordset'这句如果有错，请改成set rs1=adodc1试试 qr = msgbox("是否要删除该记录", vbyesno, "确认") if qr = vbyes then rs1.delete rs1.movenext if rs1.eof then rs1.movelast end if end if adodc1.refresh datagrid1.refresh end sub