DBPath="DBQ= "Sever.MapPath("lyb111.db")"这一句,改成DBPath= "DBQ= " & Sever.MapPath("lyb111.db")Set CreateExcelRecordest=Server.CreateObject("ADODB.Record:)这一句改成Set CreateExcelRecordest=Server.CreateObject("ADODB.Record")