在VB中如何将ACCESS中的表的数据导出到文本文档中

下面的数据库名和表名你修改成你的就可以了。。
Private Sub Command1_Click()
Set rst = New ADODB.Recordset '新建记录集对象
SQL = "select * from xxx " 'SQL查询字符串,返回表XXX里的所有记录
rst.Open SQL, cnn, 1, 3 '执行SQL语句
If rst.EOF Then MsgBox "数据库没有记录!!": Exit Sub '判断记录数是否为0
Open App.Path & "\aa.txt" For Output As #1 '写入模式打开程序目录下的aa.txt文件
For n = 0 To rst.Fields.Count - 1 '从0到字段数
a = a & rst.Fields(n).Name & " " '通过循环将所有字段的名称串连在一起
Next
Print #1, a '写如记录,也就是写入所有字段名
rst.MoveFirst '移动到第一条记录
Do While Not rst.EOF '循环,当记录指针没有到最后面的时候运行
a = ""
For n = 0 To rst.Fields.Count - 1 '同上
a = a & rst.Fields(n) & " " '将每条记录的不同字段连在一起..
Next
rst.MoveNext '移动到下一条记录
Print #1, a '西如记录,也就是写入当前记录的所有内容..
Loop
rst.Close '关闭记录集对象