SuaConexaoADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:PastaDoArquivoTxt;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
"HDR=Yes;" indica que a primeira linha contém colunas e não dados.
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Arquivo.txt",SuaConexaoADO
Depois para inserir tenta assim...
SuaConexaoADO.Execute "INSERT INTO TabelaBD (CAMPO1,CAMPO2) IN 'C:MEUBD.MDB' SELECT CAMPO1,CAMPO2 FROM ARQUIVO.TXT"
qq problema postae
t+