Visual Basic - CONVERTIR DE *.MDB A *.TXT

Hola colegas, me gustaria saber como puedo hacer para que desde mi programa yo pueda hacer que la base de datos que utilizo (la cual esta en access *.mdb) pueda convertirla a un archivo de texto (*.txt)... Agradezco tu ayuda colega.... Suerte y muchas gracias de antemano

Si estás utilizando ADO lo puedes hacer tabla por tabla. Puedes utilizar el método GetString de ADO y una función para guardar el archivo:

Dim objTablas As Recordset

Set objTablas = MiConexion.OpenSchema(adSchemaTables)

While Not objTablas.Eof
Set MiRecordset = MiConexion.Execute("SELECT * FROM " & objTablas.Fields.Item("Name").Value)

FilToString MiRecordset.GetString(",",vbCrLF),App.Path & "\" & objTablas.Fields.Item("Name").Value & ".txt"

objTablas.MoveNext

Wend

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function