谁能帮我找找错误的原因,谢谢!

这是错误给出的信息:多步OLE DB操作产生错误,请检查每一个OLE DB 状态值.没有工作完成.
   程序如下:
  Private Sub Command8_Click()
Dim strError As String
Dim i As Integer
Dim j As Integer
Dim resResult As ADODB.Recordset
Dim txtsql As String
Dim erstring As String
'k用于循环起点的判断,修改从fields(1)开始,添加从fields(0)开始
'Dim k As Integer
txtsql = "select * from " & TableName
Set resResult = ExecuteSQL(txtsql, erstring)
On Error GoTo Updata_ErrorIf mcclean = 0 Then
MsgBox "没有任何的修改!", "数据更新"
Exit Sub
Else
If mcclean = 1 Then
If resResult.BOF = False Then
resResult.MoveFirst
While (resResult.EOF = False)
  If (Trim(resResult.Fields(0)) = Trim(Text1(0))) Then
  
  MsgBox "主键已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"
  Text1(0).SetFocus
  Text1(0).Text = ""
  Exit Sub
  Else
  resResult.MoveNext
  
  End If
Wend
End If
Else
res.Delete
End If
MsgBox "text=" & Trim(Text1(0).Text)
  MsgBox "name=" & Trim(Text1(1).Text)
resResult.Closeres.AddNew
For i = 1 To res.Fields.Count
'判断数据类型?
Select Case res.Fields(i - 1).Type
   Case adDBDate
   If Not IsDate(Text1(i - 1).Text) Then
   MsgBox "数据应该是DateTime类型的!格式应该为yyyy-mm-dd", vbOKOnly + vbExclamation, "警告"
   Text1(i - 1).Text = ""
   Text1(i - 1).SetFocus
   Else
   Text1(i - 1) = Format(Text1(i - 1), "yyyy-mm-dd")
   res.Fields(i - 1) = Trim(Text1(i - 1).Text)
   End If
   Case adNumeric
   If Not IsNumeric(Text1(i - 1).Text) Then
   MsgBox "数据应该是Numeric类型的! 请确认输入的是数字", vbOKOnly + vbExclamation, "警告"
   Text1(i - 1).Text = ""
   Text1(i - 1).SetFocus
   Else
   MsgBox "string=" & Trim$(Text1(i - 1).Text)
   res.Fields(i - 1) = Trim$(Text1(i - 1).Text)
   End If
   Case Else
   res.Fields(i - 1) = Trim(Text1(i - 1).Text)
End SelectNext i
res.Update
resResult.Close
'mcclean初始化0,command重置
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
mcclean = 0
Updata_Error:
   strError = Err.Description
  MsgBox strError, vbOKOnly + vbExclamation, "警告"
  'MsgBox "数据不匹配或者某些数据不能为空!", vbOKOnly + vbExclamation, "警告"
End If
End Sub
其中res是一个模块级的REcordset对象
一个模块中不可以有两个recordset对象吗?而且我已经close了阿
请大家帮帮忙!