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:


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.