请教各位大神们，我这个为什么总是删除不了数据库的内容，只是把当前mshflexgrid表格上的数据删了，下次再查询的时候原来删除的内容依旧还在？我用了rs.Update    MSHFlexGrid1.Refresh都没有反应，要么就是报错对象关闭时不允许操作。
还有清空的话清空不了mshflexgrid表格，只有下次再打开这个表格或者再次查询的时候才显示把表格清空了？？

Private Sub Command2_Click()
'连接数据库
If conn.State = 0 Then
   conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\设计计算.mdb;Persist Security Info=False"   '连接数据库的驱动字符串并打开数据库
   conn.Open
End If

'删除
Dim sql As String
Set rs = New ADODB.Recordset     

Set rs.ActiveConnection = conn
sql = "delete from [设计计算] where  [管段编号]=' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) & " ' "   
conn.Execute sql  
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

Dim i%
For i = 1 To MSHFlexGrid1.rows - 1
 MSHFlexGrid1.TextMatrix(i, 0) = i
Next
conn.Close  
Set conn = Nothing   
End Sub

'清空
Private Sub Command12_Click()
Dim sql$
If conn.State = 0 Then
   conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
 App.Path & "\设计计算.mdb;Persist Security Info=False"   '连接数据库的驱动字符串并打开数据库
   conn.Open
End If

sql = " Delete  from [设计计算] "
 conn.Execute sql
 MsgBox "已清空"
 conn.Close
End Sub

[]是因为那是字段名称，不加[]容易识别错误。空格没有影响吧?

我运行完了打开数据库依旧没有删除。如果直接点击mshflexgrid就删除的话万一用户不小心点到了某一行怎么办

我是运行完了才打开mdb的，mdb真的没有变化，只是mshflexgrid上数据删掉了

Private Sub MShFlexGrid1_Click()
'删除
Dim i As String
Call KKK(conn)
sql = "delete from [设计计算] where  [管段编号]='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'"
conn.Execute sql
conn.Close
Set conn = Nothing
MsgBox "删除成功！"
End Sub

Sub KKK(conn)
conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\设计计算.mdb;Persist Security Info=False"
conn.Open
End Sub

mdb一直没有动静，因为我只是要删一行，所以把你那个Unload Me    删除清空数据库.Show   这段代码删了，界面上mshflexgrid也没有反应，但是会弹出“删除成功！”