请问为什么我用mshflexgrid控件删除某一行之后再点查询 删的那一行又回来了？？

[weixin_46503551]

Private Sub Command1_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, s$
Set rs = New ADODB.Recordset '创建数据集对象的连接
sql = "select * from [设计计算]"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs

End Sub

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 '创建数据集对象的连接
sql = "delete from [设计计算] where [管段编号]=' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) & " ' " '删除指定行
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
MsgBox "删除成功！"
End Sub
请问为什么我删除某一行之后再点查询 删的那一行又回来了？？

[vansoft]

因为你没有从数据库删除吧？

[weixin_46503551]

引用 1 楼 vansoft 的回复:

因为你没有从数据库删除吧？

怎么从数据库删除呀？我是个小白，求教