主题：[求助]为何现在excel导不入数据库了

If Connections.Contains("AllExcelImport")=True Then  Connections.Delete("AllExcelImport")

     If Vars("gBigBuyFile").Contains(".xlsx")=True OrElse Vars("gBigBuyFile").Contains(".XLSX")=True Then

            Connections.Add("AllExcelImport","Provider=Microsoft.JET.OLEDB.12.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 12.0;HDR=NO;IMEX=1"";")

     ElseIf Vars("gBigBuyFile").Contains(".xls")=True OrElse Vars("gBigBuyFile").Contains(".XLS")=True Then

            Connections.Add("AllExcelImport","Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 8.0;HDR=NO;IMEX=1"";")

          在这里出错，说未能建立AllExcelImport

    End If