vsflexgrid控件怎么删除选中的多条记录

vsflexgrid控件如何删除选中的多条记录？
使用vsflexgrid控件和Adodc1控件关联显示了一张数据表，当用鼠标选中表格的多条记录后按下delete键则删除所选中的所有记录，如何实现？注意，最好通过记录号来删除，而不是通过某个字段值，我的表里面无关键字。
Private Sub vsgrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i&, sql$
  Select Case KeyCode
  '删除
  Case 46:
  For i = vsgrid1.SelectedRows - 1 To 0 Step -1
  ??????
  ??????
   
  Next
  End Select
End Sub

[解决办法]

VB code

    Dim i As Long,a as string    With VSFlexGrid1        For i = 1 To .SelectedRows            a= .Cell(flexcpText, .SelectedRow(i - 1), 2) '设第3列是记录号            Cn.Execute ("delete from table1 where 记录号='" & a & "'")            .RemoveItem (.SelectedRow(i - 1))        Next    End With