Import CSV with VBA code fails on 2nd import

I have VBA importing multiple CSV files onto a Sheet using the code below.

It works on the 1st CSV file imported, but any subsequent files it loads in one column only. The CSV file is ok, since it imports properly manually using Excel's dialog box for importing CSV files.

Is there a reason why it fails in VBA?

Thanks,
Ron
Here's the code for importing...

With Worksheets(outSheet).QueryTables.Add(Connection:=connectionName, Destination:=Worksheets(outSheet).Range("A1"))
       .Name = filename
       .FieldNames = False
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = True
       .RefreshOnFileOpen = False
       .RefreshStyle = xlOverwriteCells
       .SavePassword = False
       .SaveData = True
       .AdjustColumnWidth = True
       .RefreshPeriod = 0
       .TextFilePromptOnRefresh = False
       .TextFilePlatform = 437
       .TextFileStartRow = StartRow
       .TextFileParseType = xlDelimited
       .TextFileTextQualifier = xlTextQualifierDoubleQuote
       .TextFileConsecutiveDelimiter = False
       .TextFileTabDelimiter = False
       .TextFileSemicolonDelimiter = False
       .TextFileCommaDelimiter = True
       .TextFileSpaceDelimiter = False
       .Refresh BackgroundQuery:=False
   End With

Try this code

Sub openTextCommaDelimited()
Workbooks.OpenText Filename:="C:\........\.....csv", _
    DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, Tab:=True, comma:=True

End Sub