Excel VBA 抛出 ODBC

Question

I'm getting a "General ODBC error" every time I run this. Is there something incorrect with my syntax? What does this seem to be telling me? When I do ?ssql and copy it into SQL Server, it runs.

Thank you :) The below is the simple code that I have entered.

sSQL = "select " & _
"CompanyName" & _
",FirstName" & _
",LastName" & _
",FullName" & _
",Subject Topic" & _
",OwnerIdName" & _
",A.CreatedOn" & _
",EMailAddress1" & _
",JobTitle" & _
",Value  Status " & _
" from Lead  A " & _
"left join   MSCRM.dbo.StringMap E on   New_LeadStatus = E.AttributeValue And E.AttributeName = 'new_leadstatus' " & _
"where CreatedOn > getdate() - (7)"




With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=test;UID=test;PWD=test;APP=2007 Microsoft Office system;DATABASE=MSCRM;" _
        , Destination:=Range("$A4")).QueryTable
        .CommandText = sSQL
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Query_from_CRMDB"
        .Refresh BackgroundQuery:=False
    End With

Call AutoFmt
    
Sheets(ActiveSheet.Name).Name = "Lead Report"
    
Cells(1, 1).Select

Answer 1

The reason why I had this was because my computer did not have an ODBC connection to the new database. This is now solved.