VB中MSHFlexGrid控件中选择记录删除不了选中的记录而是删除了第一条记录？

Private Sub Command2_Click()
Adodc1.RecordSource = "select * from 常用联系电话表 where 名称=" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 0)
Adodc1.Recordset.Delete

MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
End Sub

## 怎么才能删除选择的记录内容呢？这个代码只能表面上看似删除了但是数据库能的内容删除的是第一条记录！求问题所在？