对象打开与关闭问题！！！！！达人来看看

Question

以下是对修改后记录的保存操作，但是执行的时候总是提示“对象关闭时，不允许操作！”，然后错误提示指向mst.close这一行，若把这一行注释掉再次执行，没有错误提示，但是实际上并没有真正修改到记录，是怎么回事？？？？？？？？到底该如何修改？？
Option Explicit
Dim rs1 As New ADODB.Recordset 
Public photoFilename As String
Dim mst As New ADODB.StreamPrivate Sub Command1_Click()
'保存修改
    rs1.Open "select * from tb_gongylc where huoh='" + Text1(1).text + "'", cnn, adOpenKeyset, adLockOptimistic
   If rs1.RecordCount > 0 Then
    rs1.Fields("xuant") = Text1(0)
    rs1.Fields("huoh") = Text1(1)
    rs1.Fields("shejs") = Text1(2)
    mst.Type = adTypeBinary
    mst.Open
    If photoFilename <> "" Then mst.LoadFromFile photoFilename
    rs1.Fields("tup") = mst.Read
    rs1.Update
    End If
    rs1.Close
    mst.Close
End Sub

Answer 1

cnn连接打开了的啊，是在模块中保存的代码执行都没有问题，就是修改时出现这样的提示，为什么？？？？？？？？

Answer 2

lz 你的mst.Open "..."这省略号里面不应该为空吧!