excel导入SQL时出问题了

代码：
strSQL = "SELECT * INTO PortfolioAllocation FROM " & _
            "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
            "'Data source=E:\EXCEL-VBA\CITICS\a.xls;" & _
            "Extended Properties=Excel 8.0')...[PortAlloc$]"

cn.execute strSQL
报错了

电脑重启也不行，可关键是之前是可以的啊

链接服务器“null”的OLEDB访问接口”Microsoft.Jet.OLEDB.4.0“返回了消息”未指定的错误“

SQL SERVER 的 Microsoft.Jet.OLEDB.4.0 服务未启用！
2008版的到 “服务器对象-链接服务器-访问接口”找相应的项目启用！