Try this:
Dim adoConn As New ADODB.Connection
Dim adors as new Adodb.Recordset adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & ";" & _
"Extended Properties=""text;HDR=Yes;FMT=Delimited"""
adoRS.Open "Select * From " & strFile & "", adoConn, _
adOpenStatic, adLockReadOnly, adCmdText
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."