vb更新mssql中image字段的问题，很奇怪！

问题是这样的，我用mssql设计了一个表，其中有3字段是Image类型的。用vb通过ado向表中写数据时，因为这3个image字段存储的信息需要用户来进行输入信息后，由输入的信息来对应得到相应的图片，然后用ADO将这3张图片更新到数据库中某一条记录的3个image字段中，但很奇怪，程序执行到update的时候就卡死。
搞不清楚怎么回事。很奇怪。求助！'以上代码省略
Set RetRs = New ADODB.Recordset
Sqlstr = "Select * From TblGreenValue where opid='" & "010" & "' "
            RetRs.Open Sqlstr, RetCn, adOpenKeyset, adLockOptimistic
            If RetRs.EOF = False Then
                RetRs.MoveFirst
                While RetRs.EOF = False
                    RetRs!sign1 = stm(0).Read
                    RetRs!sign2 = stm(1).Read
                    RetRs!sign3 = stm(2).Read
                    RetRs.Fields("shenh") = "2"
                    RetRs.Update
                    RetRs.MoveNext
                Wend
            End If执行到了Retrs.Update时就卡死，实在很奇怪！