将Access表中的数据内容按一定格式存储到Txt文件中，D:\Program Files\Microsoft Visual Studio\VB98，如果你的VB6不是安装在此位置，请修改代码中的路径为你的实际位置，测试结束后请记着关闭数据库引擎。-An Access table data content according to a certain format to Txt file, D: \ Program Files \ Microsoft Visual Studio \ VB98, if your VB6 is not installed in this location, modify the path in the code for your actual location, After the test, please remember to close the database engine. Caveats: Input field name wrap: Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF For Each fld In Data1.Recordset.Fields Print# 1, fld.Value　" ,"　　 No Wrap Next　 This cycle of the current record of all field values ​　​　written to the file Print# 1, Chr (13) Data1.Recordset.MoveNext　 input newline after the next record is set to the current record Loop　 This Do-While Scrolling write all Record Close# 1　 close the file End Sub