Visual Basic - De Access a Txt

Tengo un programa que genera un archivo .txt, pero no sé como cargar los datos de una tabla de Access al archivo .txt y, me imagino que se pudiera hacer así, leer el nombre del campo de un arreglo e ir anexándolo a LineaTxt como está en el ejemplo. Si no es así, le agradezco a quien pueda aclarar mi desconocimiento.

Gracias.


If rs.State > 0 Then rs.Close
Seleccion = "Select * from tblNomina"
rs.Source = Seleccion
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
Set rs.ActiveConnection = cn
rs.Open

If rs.RecordCount > 0 Then

Do While Not rs.EOF
LineaTxt = ""

For i = 1 To CantidadCamposSalida
LineaTxt = LineaTxt & rs.Fields(aCamposSalida(i))
Next i

Print #nArchivo1, LineaTxt
rs.MoveNext
Loop

End If

Primero tienes que abrir el archivo txt:
Open Archivo For Output As #1