What the fastest way of moving data from AS400 to PC ?

I'm using VB6/ADO through ODBC to get data from AS400. Then field after field
I'm creating a string in the CSV format an throw it in a text file an go
to the next record. This process takes hours to download data. Is there any
way to speed up the process ?

Thank you