将数据库(Access)中的数据写入txt文本文件的有关问题

将数据库(Access)中的数据写入txt文本文件的问题
从Access导入数据(rs.field),然后把所得的数据一一放入同一个txt文件中（数据排列如下）。请问大家，怎样实现这个？

导入数据为：１　２　３　４　５　６　７　８

文本文件：
１　２　３　４
５　６　７　８

中间为空格

------解决方案--------------------
If j < 2 Then
tmpDemData = tmpDemData & " "
Print #1, tmpDemData, ;
ElseIf j = 2 Then
Print #1, tmpDemData
End If
'*************************
你的这段程序里面，第一个print语句写错了，导致这么多空格，逗号本身的间隔就很大，占多少个空格我不记得了，现在我的这个电脑上没有装ＶＢ，你自己试试看，还有分号，也占一定的空格的，如果你把第一句改成这样，应该就没有问题了．
Print #1, tmpDemData & " "
其实下面这句是没有用的
tmpDemData = tmpDemData & " "
你的本意是想tmpDemData后面接个空格，但是 " "不是空格，是空串，如果这样就奏效了 " "
------解决方案--------------------
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim tmpDemData As String
Open "c:\temp.txt " For Output As #1
For i = 0 To 7 Step 4
tmpDemData = " "
For j = 0 To 3
c = CStr(MatA(i + j))
tmpDemData = tmpDemData & c & " "
Next j
Print #1, tmpDemData
Next i
Close #1
End Sub

Function MatA(i As Integer) As String
Dim arr(7) As Integer
arr(0) = 1
arr(1) = 2
arr(2) = 3
arr(3) = 4
arr(4) = 5
arr(5) = 6
arr(6) = 7
arr(7) = 8
MatA = arr(i)
End Function