VBA importing .CSV dropping DATA not rows

[gdougherty]

We are importing some .CSV files into an Excel file. One column of data (ORDER NUMBER) typically contains NUMBERS (9992570000), the import works fine when this is the case.

However, some data in this column contains ALPHA CHARACTERS within the data (999TX50000); when this scenario occurs this DATA is not imported.

The "row" of data is imported, but this ORDER NUMBER data is dropped.

For example:

	ORDERNUMBER	COL2	COL3	COL4
ROW1	9992570000	TEXAS	WABASH	BILL
ROW2		IOWA	FRANKFORT	JOE

<tbody>
</tbody>

 With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DefaultDir=\\Omaw2kfile02\lozier\BPA\llcAutoKey;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;Extensions=txt," _
        ), Array( _
        "csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" _
        )), Destination:=Range("$A$3")).QueryTable
        .CommandText = Array( _
        "SELECT *" & Chr(13) & "" & Chr(10) & "FROM " & Filename & ".csv " & Filename & "" & Chr(13) & "" & Chr(10))
        
        'MsgBox "SELECT *" & Chr(13) & "" & Chr(10) & "FROM " & Filename & ".csv " & Filename & "" & Chr(13) & "" & Chr(10)
        
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False 'True GD
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_csvFiles"
        .Refresh BackgroundQuery:=False
    End With

Appreciate any insight!!