急！求救

Private Sub CmdBorrowSave_Click()
On Error GoTo Err_CmdBorrowSave_Click
Set Rs5 = New ADODB.Recordset
StrTemp = "Select * From 仪器借出"
Rs5.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Rs1 = New ADODB.Recordset
StrTemp = "Select * From 实验仪器"
Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs1.RecordCount > Me![数量] Then
  MsgBox "您所借出的数量超过了仪器目前的数量,请检查!", vbOKOnly, "错误"
  Exit Sub
Else
    Rs5.MoveFirst
    For iTemp = 0 To Rs5.RecordCount - 1
       Rs1.MoveFirst
       For jTemp = 0 To Rs1.RecordCount - 1
          If (Rs1("仪器编号") = Rs5("仪器编号")) Then
             Rs1("数量") = Rs1("数量") - Rs5("借出数量")
             Rs1.Update
          Else
             Rs1.MoveNext
          End If
          Next jTemp
          Rs5.Update
          Rs5.MoveNext
        Next iTemp
        MsgBox "仪器借出保存成功!", vbOKOnly, "提示"
        End If
        Me![BorrowGoodsMsgFrm].Requery
        Rs1.Close
        Rs5.Close
        Set Rs1 = Nothing
        Set Rs5 = Nothing
Exit_CmdBorrowSave_Click:
     Exit Sub
Err_CmdBorrowSave_Click:
   MsgBox Err.Description
   Resume Exit_CmdBorrowSave_Click
End Sub
哪位高手帮我看看这段代码有什么错误吗?