Fonte: Fábio Cavalcante

Num módulo:

Public Function Mdb2Txt(BD, Tabela, Arquivo As String)
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(BD)
Set rs = db.OpenRecordset(Tabela)

‘step 3:
Dim nFile%
Dim vFileName$
vFileName$ = Arquivo

nFile% = FreeFile
Open vFileName$ For Output As #nFile%

‘step 4 / 5:
Dim counter%
Dim MaxFields%
MaxFields% = rs.Fields.Count - 1
Do While Not rs.EOF
For counter% = 0 To MaxFields%
If Not IsNull(rs.Fields(counter%).Value) Then _
Print #nFile, rs.Fields(counter%).Value;
‘Write #nFile, rs.Fields(counter%).Value; ‘Com delimitadores
Next counter%
Print #nFile,
rs.MoveNext
‘walther.musch@kather.net
Loop

‘step 6:
rs.Close
db.Close
Close #nFile%

End Function

Teste:

Private Sub Comando1_Click()
retorno = Mdb2Txt(“c: empescritafiscal.mdb”, “tblTransmissor”, “c: emp este.txt”)
End Sub

Em http://www.kather.net/VisualBasicSource/msa/msaindex.htm