Access - Records a .txt

Como puedo pasar todos los records a un archivo .txt con un commandbutton1.
Gracias de antemano!!!

Intente esto pero me da error de especificacion..
Private Sub Command1_Click()
DoCmd.TransferText acImportDelim, "Lote", "table1", "C:TimeTextData.txt", True
End Sub