I am trying to poulate a recordset via a csv.
Here is my code for doing so:

Set oConn = CreateObject("ADODB.CONNECTION")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";Extended Properties=""text;HDR=No;FMT=Delimited"""

Set oRS = CreateObject("ADODB.RECORDSET")
oRS.Fields.add ("go")

'Now actually open the text file and import into Excel
oRS.Open "SELECT * FROM " & strFileName, oConn, 3, 3

Here is a sample of the CSV data:

LND01,DS025625,416418,5/22/2009,SHARE,917,FOODPRO,DIN,41.49,1,41.49,1,LND01,534145,3665,,,,10188
LND01,DS025626,82281653L,4/8/2009,SHARE,2445,FOODPRO,DIN,96.1,1,96.1,1,LND01,651050,3665,,,,10334
LND01,DS025696,1165899,5/21/2009,SHARE,2122,FOODPRO,DIN,-129.25,1,-129.25,1,LND01,651005,3690,,,,10154
LND01,DS025697,1166151,5/22/2009,SHARE,2122,FOODPRO,DIN,5.1,1,5.1,1,LND01,651005,3660,,,,10200
LND01,DS025698,21033913405,5/14/2009,SHARE,6622,FOODPRO,DIN,27.03,1,27.03,1,LND01,651020,3690,,,,10202
LND01,DS025699,21033913406,5/14/2009,SHARE,6622,FOODPRO,DIN,16.76,1,16.76,1,LND01,651020,3665,,,,10188
LND01,DS025700,21033913407,5/14/2009,SHARE,6622,FOODPRO,DIN,15.33,1,15.33,1,LND01,651020,3665,,,,10162


Hopefully this doesn't get to messy but i wanted to give a good representation of the issue so you can replicate if necessary. My issue is with the query works fine starting out. Once I hit the second record the third column (82281653L) come s in as empty. I believe the issue is with the field type. I don't know how these get set in the recordset, but when I drill into the recordset and fields and look at this field it is set as adDouble. How i can change this so it is a string?

Thanks for the help.