Sub Macro1()
   Sheets("DATA1").Select
   Sheets("DATA2").Range("a2:j65336").Clear
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=C:\Program Files\StatPakPC\Database\test_80_2nd.mdb;DefaultDir=C:\Program Files\StatPakPC\Database;D" _
        ), Array("riverId=25;FIL=MS Access;MaxBufferSize=4096;PageTimeout=100;")), _
        Destination:=Range("A1"))

        .CommandText = Array( _
        "SELECT ProductLine.LineID, LineRun****nID, Product.ProductID, Material.MaterialName, ProductLine.UnitsPerMin, RunLineDeviceRecipe.UnitWt_SET, LineRun.ActualUnits, LineRun.ActualWt, LineRun.DateOpened, LineRun.DateClosed," _
        , _
        "ProductLine.ProductID, LineDeviceStateLog.DTReasonID, Material.MaterialID" & Chr(13) & "" & Chr(10) & "FROM  `C:\Program Files\StatPakPC\Database\test_80_2nd`.Product Product, `C:\Program Files\StatPakPC\Database\test_80_2nd`.Material Materia" _
        , _
        "l, `C:\Program Files\StatPakPC\Database\test_80_2nd`.LineRun LineRun, `C:\Program Files\StatPakPC\Database\test_80_2nd`.ProductLine ProductLine, `C:\Program Files\StatPakPC\Database\test_80_2nd`****nLineDeviceRecipe Run" _
        , _
        "LineDeviceRecipe, `C:\Program Files\StatPakPC\Database\test_80_2nd`.LineDeviceStateLog LineDeviceStateLog" & Chr(13) & "" & Chr(10) & "WHERE Material.MaterialID = Product.MaterialID AND Product.ProductID = ProductLine.ProductID AND RunLineDev" _
        , _
        "iceRecipe****nID = ProductLine****nID AND RunLineDeviceRecipe.LineID = LineRun.LineID AND LineRun****nID = RunLineDeviceRecipe****nID AND LineDeviceStateLog.LineID = LineRun.LineID AND LineDeviceStateLog.DateOpened = LineR" _
        , _
        "un.DateOpened AND LineDeviceStateLog.DateClosed = LineRun.DateClosed" & Chr(13) & "" & Chr(10) & "ORDER BY ProductLine.LineID, Material.MaterialID, LineRun****nID" _
        )
        .Name = "test_80_2nd Customer"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Documents and Settings\Administrator\Application Data\Microsoft\Queries\test_80_2nd Customer.dqy"
     '   Selection.QueryTables.Refresh BackgroundQuery:=False
     '
        .Refresh BackgroundQueryTables:=False
    End With
    Sheets("ATL").Select
End Sub