十万火急!十万火急!

请问mrc是怎么定义的，
我用的是
Option Explicit
Global AppDir As String
Public M_DBConn As ADODB.ConnectionDB_File = App.Path & "\FriendDate\FriendMdb.mdb"
  Set M_DBConn = New ADODB.Connection
  M_DBConn.ConnectionString = "ms Access;dsn=;driver={Microsoft _ Access Driver (*.mdb)};dbq=" & DB_File & ";fil=MS Access" _
  M_DBConn.OpenPublic Function do_sql(Sql As String) As ADODB.Recordset
    On Error GoTo ErrorSql
    Set do_sql = New ADODB.Recordset
        do_sql.CursorType = adOpenKeyset
        do_sql.LockType = adLockOptimistic
        do_sql.Open Sql, M_DBConn, , , adCmdText
    Exit Function
    
ErrorSql:
    MsgBox "查询失败！"
    Exit Function
End Function以上均是在标准模块中写的如果要查询则要在窗体代码中加上
dim rst as adodb.recordset
set rst=do_sql(sql)
给分的话，按管理就行了然后选人给分呗，