更新数据库遇到“要求对象”的问题

Question

Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
Private Sub Command2_Click()Dim str As String
Dim i As Integer
i = 1
 
    For i = 1 To objrs.RecordCount
     With MSHFlexGrid1
          str = "update RecResult1 set ZZ8SalesNo='0' where RecResult1.SalesNo=" & Trim(.TextMatrix(i, 1)) & " and        
                 RecResult1.zz5taskid=" & Trim(.TextMatrix(i, 2)) & " and RecResult1.zz1imagefile=" & Trim(.TextMatrix(i,3)).tif           & " and RecResult1.SalesNo!='' "          objcon.Execute str
          MsgBox i    End With
Next i
End SubPrivate Sub Form_Load()objcon.Open "Provider=sqloledb;user id=sa;password=;Initial Catalog=UniMagic;Data Source=127.0.0.1"
objrs.Open "SELECT shop.SalesNo,RecTask.taskid,shop.imagefile FROM ((shop INNER JOIN RecTask ON shop.TaskId = RecTask.TaskId) INNER JOIN 药店信息 ON shop.ShopNo = 药店信息.药店名称) inner join 人员信息 on shop.SalesNo=人员信息.人员编码 where 人员信息.city!=RecTask.TaskName ", objcon, 3, 1MsgBox objrs.RecordCountSet MSHFlexGrid1.DataSource = objrs
End Sub
小弟是个菜鸟，想要更改数据库中符合str条件的记录！
遇到问题是“要求对象”
想了半天也解决不了~
特来向各位达人请教！
（红色字体就是出现错误的地方）