Este exemplo envia seu BD mdb para um arquivo texto
Private Sub Command1_Click()
Dim db As Database
Set db = Workspaces(0).OpenDatabase("C:\caminho_do_banco_de_dados.mdb")
db.Execute "Select * into [text; DATABASE=" & "c:\].[nome_do_arquivo_texto.txt] FROM [nome_da_tabela]"
End Sub
simples porém funcional
