求助！关于_recordset失败

Private Sub Save_Click()
      ADORst.AddNew '新增纪录
      ADORst("姓名").Value = Names.Text       '给动态集的第一个字段赋值
      ADORst("编号").Value = Numb.Text       '给动态集的第二个字段赋值
      Set ADOFld = ADORst("照片")         '给ADODB.Field对象赋值
      
      Call SaveToDB(ADOFld, FileName)
      '调用子程序，给第三个字段（image）赋值
      ADORst.Update
      MsgBox "保存成功", vbOKOnly, ""
     
      Call UpdateRecordSet '更新记录集，否则会出现句柄未释放错误
    End Sub
    
Private Sub Update_Click()
      '重新打开纪录集，刷新纪录
      ADORst.Close
      ADOCon.Close
      Set ADORst = Nothing
      Set ADOCon = Nothing
      ADOCon.Open Constr
      ADORst.Open "select * from tupian", ADOCon, adOpenDynamic, adLockOptimistic
      Set AdoCtr.Recordset = ADORst
    End Sub
总是在这两个地方出现
“对象'addnew'的方法_recordset失败”
“对象'close'的方法_recordset失败”
请问该怎么改？