急！！！实时错误，至少有一个参数未被指定！！！


Option ExplicitDim WithEvents adoPrimaryRS As Recordset
Dim db As New ADODB.Connection
Dim mrc As New ADODB.RecordsetPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub OpenFile(ByVal FileName As String)  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data source=E:\testpaper\DB\testpaper.mdb"End SubPrivate Sub OpenTable(ByVal Sql As String)
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open Sql, db, adOpenStatic, adLockOptimistic
End SubPrivate Sub OpenTable2(ByVal Sql As String)
  Set mrc = New Recordset
  mrc.Open Sql, db, adOpenStatic, adLockOptimistic'<-----------------就是这句话提示的。大家帮我看看！谢谢了~~
End SubPrivate Sub Command1_Click()
   Dim I As Integer
   OpenFile App.Path & "\testpaper.mdb"
   OpenTable "Select username,password from users Where username='" & Text1.Text & "' and password='" & Text2.Text & "'"
   
   If adoPrimaryRS.RecordCount > 0 Then
      Dim pName As String
      pName = adoPrimaryRS.Fields("username").Value
      OpenTable2 "Select code,username,checknum from testdes Where  code = " & Form8.DataGrid1.Text
      
      If mrc.RecordCount > 0 Then
         mrc.MoveFirst
         For I = 1 To mrc.RecordCount
            Select Case mrc.Fields("checknum")
               Case 0
                 mrc.Fields("username").Value = pName
                 mrc.Fields("checknum").Value = mrc.Fields("checknum").Value + 1
               Case 1
                 If mrc.Fields("username").Value <> pName Then
                    mrc.Fields("username").Value = mrc.Fields("username").Value & "," & pName
                    mrc.Fields("checknum").Value = mrc.Fields("checknum").Value + 1
                 Else
                    MsgBox pName & "已经审核过了。"
                 End If
               Case Else
            End Select
            mrc.Update
            mrc.MoveNext
         Next
         
      Else
         MsgBox "没有数据可以进行审核."
      End If
   Else
      MsgBox "没有此用户或密码错误."
   End If
    
   Sleep (1000)
   
   
   Form8.Adodc1.Refresh
  ' Form8.DataGrid1.Refresh
Unload Me
End Sub