有关MSFlexGrid

Private Sub cmdkinddel_Click()
MySql = "delete from kind where kind='" & RTrim(MSFkind.TextMatrix(MSFkind.RowSel, 1)) & "'"
    Set MyRs = cm.OpenResultset(MySql, 1, , 64)
                 
MSFkind.RemoveItem MSFkind.Row
End Sub删除MSFlexGrid里的行，
问题：如果MSFlexGrid只剩最后一行了，删除就会出错，但其实还是有删掉的，
是不是如果只剩最后一行的时候，不能这样写MSFkind.RemoveItem MSFkind.Row
那该怎么写呢？