如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗

crg770502

Private Sub Command0_Click()
    Open "d:\temp\01.txt" For Output As #1
    Dim rs As New adodb.Recordset
    rs.Open "联系人", Application.CurrentProject.Connection, adOpenForwardOnly
    rs.MoveFirst
    Do While Not rs.EOF
        Print #1, rs("姓名").Value & rs("地址").Value
        rs.MoveNext
    Loop
    Close #1
    Set rs = Nothing
    MsgBox "完成"
End Sub