采用如下方案将MSHFlexGrid表中选中的一行删除，为什么总是删除第1行？还有就是每次删除需要选中和按键2次？
Private Sub ms1_Click()
  dim x as string
  x = ms1.TextMatrix(ms1.Row, 1)
End Sub

Private Sub delkey_Click()
  Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\MYDB.mdb;"""
  strSQL = "delete * where 姓名='" & x & "'"
      Adodc1.Recordset.Delete
      Adodc1.Recordset.Update
      Adodc1.Refresh
End Sub

我一个大菜鸟，望高手指教，莫笑话

加上Adodc1.recordsource=strSQL
删除Adodc1.Recordset.Delete和Adodc1.Recordset.Update

按照你说的，选中有出现“对象关闭时，不允许操作”
问题在adodc1.refresh 上。

Private Sub delkey_Click()
  Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\MYDB.mdb;"""
  strSQL = "delete * where 姓名='" & x & "'"
      adodc1.recordsource=strSQL
      Adodc1.Recordset.Delete
      'Adodc1.Recordset.Update    去掉这一行
      Adodc1.Refresh
End Sub