Visual Basic - Visual Basic ADO

archivo de texto de 6 columnas se requiere mostrar en DataGrid de 6 Columnas el problema es que cuando lo muestra las 6 columnas del archivo de texto las coloca en una sola del DataGrid todas las pone en COLUMN(0) y no puedo manejarlas de forma independiente. Por favor me pueden ayudar, gracias de antemano, Reciban saludos, A continuación les muestro el codigo
Option Explicit
' variables de Ado para el rec y la conexión

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

Private Sub Form_Load()
' cursor del lado del cliente
cn.CursorLocation = adUseClient

' abre el archivo de texto datos.txt ubicado en el app.path
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & ";" _
& "Extended Properties='text;FMT=Delimited'"


' Ejecuta la consulta sql para llenar el recordset

rs.Open "Select * from leclerc.txt ", cn, adOpenStatic

' enlaza el recordset con el DataGrid
Set DataGrid1.DataSource = rs
End Sub