急急急！！！我想用mshflexgrid删除某一行，怎么同时删除mshflexgrid和数据库的内容呢??为什么总是在Set mrc = ExecuteSQL(txtsql, msgtext)处报错子程序或函数未定义？？
Private Sub Command2_Click()
 Dim txtsql As String   '定义一个字符串，存放sql的语句
 Dim msgtext As ADODB.Recordset  '定义一个字符串，存放连接数据库的结果。一般不再用户界面体现
 
''连接数据库
'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


'删除mshflexgrid
Dim sql As String
Set rs = New ADODB.Recordset     '创建数据集对象的连接

sql = "delete from [设计计算] where  [管段编号]=' " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) & " ' "     '删除指定行
conn.Execute sql   '执行sql语句
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row

'删除数据库
txtsql = "select * from [设计计算] where [管段编号] = '" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) & "'"
Set conn = ExecuteSQL(txtsql, msgtext)
'rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

MsgBox "删除成功！"

conn.Close  '关闭连接
Set conn = Nothing   '释放变量

End Sub