En vez de relacionarlo con un control Data, puedes hacer una conexión directa mediante ADO y recuperar los datos en un recordset:
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.Path & ";" & _
"DefaultDir=" & App.Path & ";" & _
"Uid=Admin;Pwd=;"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * From [Archivo.txt]", cn, adOpenForwardOnly, adLockReadOnly, adCmdText
Nota: para que la conexión funcione, los campos tienen que estar separados por punto y coma, sino sólo mostrará el primer campo.