'---- 操作相关函数 ----
        Private Function ExecuteAction(CommandText)
            Dim intRtn
         on error resume next
            m_ActiveConnection.Execute CommandText, intRtn, adCmdText + adExecuteNoRecords
           'debug CommandText, ""
           'debug m_ActiveConnection.Errors(0).Description, "1"
            ExecuteAction = intRtn
        End Function


请高手解释一下：CommandText
                intRtn
                adCmdText
                adExecuteNoRecords
以及  adCmdText + adExecuteNoRecords
各代表什么意思