请教有关vb导出txt的空格问题

我写了个模块函数，用来把sql数据库导出成txt文件，出来效果是每一列之间都会有一个空格间隔，例如:

0052135199011 赵燕梅                                     
0052423253011 赵同晃                                     
0065310602011 吴伟庭                                       
0063829765011 陈文利 

我不想要这个空格如：

0052135199011赵燕梅                                     
0052423253011赵同晃                                     
0065310602011吴伟庭                                       
0063829765011陈文利 

以下是函数内容，请各位大大指教，应该怎么改才能达到要求，谢谢。

Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
        Dim rs As New ADODB.Recordset
        Set rs = Ne