cargar un txt en datagrid en visual 2008

[gabr]

este es mi codigo en visual net utilizo un datagrid y un boton para cargar el .txt
el error me da cuando se ejecuta el recordset.

Imports System.IO
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.Recordset
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
'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 From
RsOrigen.Open("select * from [" & Archivo & "]", CnOrigen, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText)
''aqui me da el error

' Ejecuta la consulta sql para llenar el recordset
DGMostrarArchivo.DataSource = " RsOrigen "
End Sub