Does anyone know why I would be getting a type mismatch within the following code?

Thanks.

Sub Export()
'
' Export Macro
' Macro written 2/12/2009 by Mason Shea
'

'
    Dim Condition As String
    Dim Split As String
    
    Condition = "HCC" & Sheets("List").Range("B1").Value
    
    For i = 1 To 7
    
        Split = Sheets("List").Range("B" & i + 2).Value
        Condition = "`" & Condition & ": " & Split & "`"
        Sheets.Add
        ActiveSheet.Select
        ActiveSheet.Name = Split
        
        With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
            "ODBC;DSN=MS Access Database;DBQ=G:\BALARF\MIPPA 2010\Claims Analysis\2007\hcc.mdb;DefaultDir=G:\BALARF\MIPPA 2010\Claims Analysis\20" _
            ), Array("07;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
            Destination:=Range("A1"))
            .CommandText = Array( _
            "SELECT " & Condition & ".`Total # of Participants`, " & Condition & ".`Average Member Months`, " & Condition & ".State, " & Condition & ".Plan, " & Condition & ".Age, " & Condition & ".HCC1, " & Condition & ".HCC2, " & Condition & ".HCC5, " & Condition & ".HCC7, " & Condition & ".HCC8, " & Condition & ".HCC9, " & Condition & ".HCC" _
            , _
            "10, " & Condition & ".HCC15, " & Condition & ".HCC16, " & Condition & ".HCC17, " & Condition & ".HCC18, " & Condition & ".HCC19, " & Condition & ".HCC21, " & Condition & ".HCC25, " & Condition & ".HCC26, " & Condition & ".HCC27, " & Condition & ".HCC31, " & Condition & ".HCC32, " & Condition & ".HCC33, " & Condition & ".HCC37, " & Condition & ".HCC38, " _
            , _
            "" & Condition & ".HCC44, " & Condition & ".HCC45, " & Condition & ".HCC51, " & Condition & ".HCC52, " & Condition & ".HCC54, " & Condition & ".HCC55, " & Condition & ".HCC67, " & Condition & ".HCC68, " & Condition & ".HCC69, " & Condition & ".HCC70, " & Condition & ".HCC71, " & Condition & ".HCC72, " & Condition & ".HCC73, " & Condition & ".HCC74, " _
            , _
            "" & Condition & ".HCC75, " & Condition & ".HCC77, " & Condition & ".HCC78, " & Condition & ".HCC79, " & Condition & ".HCC80, " & Condition & ".HCC81, " & Condition & ".HCC82, " & Condition & ".HCC83, " & Condition & ".HCC92, " & Condition & ".HCC95, " & Condition & ".HCC96, " & Condition & ".HCC100, " & Condition & ".HCC101, " & Condition & ".HCC104, " & Condition & ".HCC" _
            , _
            "105, " & Condition & ".HCC107, " & Condition & ".HCC108, " & Condition & ".HCC111, " & Condition & ".HCC112, " & Condition & ".HCC119, " & Condition & ".HCC130, " & Condition & ".HCC131, " & Condition & ".HCC132, " & Condition & ".HCC148, " & Condition & ".HCC149, " & Condition & ".HCC150, " & Condition & ".HCC154, " & Condition & ".HCC" _
            , _
            "155, " & Condition & ".HCC157, " & Condition & ".HCC158, " & Condition & ".HCC161, " & Condition & ".HCC164, " & Condition & ".HCC174, " & Condition & ".HCC176, " & Condition & ".HCC177, " & Condition & ".`# of Participants with Claim Dollars`, " & Condition & ".`Total Member Months`, " & Condition & ".`Total Benefit Amount`, " & Condition & "" _
            , _
            ".`# of Participants with zero claim dollars`, " & Condition & ".Conditions" & Chr(13) & "" & Chr(10) & "FROM `G:\BALARF\MIPPA 2010\Claims Analysis\2007\hcc`." & Condition & " " & Condition & "" _
            )
            .Name = "Query from MS Access Database"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=False
        End With
        
    Next i
    
    
End Sub