Code suggestions [Resolved]

[hatemachine]

Thanks... Problem Solved

Sub Macro2()
    Dim sCell As String
    sCell = "A" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;C:\test\Query from MS Access Database.dqy" _
        , Destination:=Range(sCell))
        .Name = "Query from MS Access Database"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Cells.Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Now trying to figure out how to edit the original subject to resolved.