Abrir un .txt en datagrid?

[gabr]

quiero mostrar un archivo .txt en un datagrid con visual basic 2008 pero al ejecutarlo no me abre el .txt en el datagrid me da el error cuando ejecuto el recordset?

Public Class Form1
Dim Ruta As String
Dim Archivo As String
Dim CnOrigen As ADODB.Connection
Dim RsOrigen As ADODB.Recordset
Dim CNDestino As ADODB.Connection
Dim RSDestino As ADODB.Connection

'boton para abrir el .txty cargarlo en el datagrid
Private Sub cmdCargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCargar.Click

'procedimiento para la cargar del archivo al datagrid
CnOrigen = New ADODB.Connection
RsOrigen = New ADODB.Recordset
With OpenFileDialog1
.FileName = ""

'para abrir el txt
.Filter = "Archivo CSV|*.csv|TXT|*.txt|Todos los archivos|*.*"
.Title = " Seleccionar el archivo TXT"
.ShowDialog()

'Proporciona el nombre del archivo
Archivo = .FileName
End With

'Cadena de conexión
CnOrigen.Open("DRIVER={Microsoft Text Driver (*.txt; *.csv)}; DBQ=" & My.Application.Info.DirectoryPath & ";", "", "")
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''

'Ejecutamos el recordset pasandole el archivo de texto en la cláusula FromRsOrigen.Open("select * from [" & Archivo & "]", CnOrigen, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText)
'''''''a qui me da el error'''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
'Le asignamos el Datasource del datagrid a la función que devuelve el recordset
DGMostrarArchivo.DataSource = RsOrigen
End Sub
End Class