Visual Basic - Conexión ADO Text Driver

Hola a todos, tengo una conexión a un archivo txt delimitado y separado por comas que no me funciona, aquí mi conexión

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
cn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & App.Path & ""
Set rs = New ADODB.Recordset
rs.Open "Select * From MiArchivo.txt", cn, adOpenStatic, adLockReadOnly, adCmdText
Set DataGrid1.DataSource = rs

El caso es que muestra todos los registros pero sólo del primer campo.

El txt está en este formato

Registro-1 "0001","224.10","","","31/12/2005","3516,6","UTJE AÑO 1979", .......
Registro-2 "0002","225.10","","","16/02/2006","172774,58","INSTALACION", ...
etc.

y me muestra sólo este campo:
0001
0002
......

Agradeceré cualquier ayuda.
Gracias

Añade en la cadena de conexión:

& "Extended Properties='text;FMT=Delimited'"

A mi me funciono bien, yo estaba buscando la sintaxis de como hacer eso, y probe con tu ejemplo y todo bien, lo unico es que mi archivo es CSV

Saludos