como abro un archivo de texto delimitado por comas en un datagrid

[gady22]

hola quiero habris el contenido de un archivo de texto en un data grid tengo el siguiente codigo pero memarca el error de que el proveerdo jet no encuentra el archivo

'Función que devuelve el recordset con los datos

Private Function Leer_Txt_con_Ado() As ADODB.Recordset

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

'Cadena de conexión
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.Path & ";", "", ""

'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
rs.Open "select * from [datos#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText

'eliminamos las variables
Set Leer_Txt_con_Ado = rs
Set rs = Nothing
Set conn = Nothing
End Function

Private Sub Command1_Click()
'Le asignamos el Datasource del datagrid a la función que devuelve el recordset
Set DataGrid1.DataSource = Leer_Txt_con_Ado
End Sub

Private Sub Form_Load()
Command1.Caption = " Cargar Txt "
End Sub

ayuda porfavor