[Amin_Mansouri]

از Ado استفاده نکردی اون بهتر بود.
به هر حال بیا اینم از فیلد پروین پرینت میکنه رو پروژت هم تست کردم

کد:

Private Sub Command2_Click()
Dim sFileText As String
Dim iFileNo As Integer
   iFileNo = FreeFile
  Open "C:\Test.txt" For Output As #iFileNo
If Data1.Recordset.RecordCount = 0 Then Exit Sub
Data1.Recordset.MoveFirst
Combo1.Clear
Do While Not Data1.Recordset.EOF
Print #iFileNo, Data1.Recordset(0)
Data1.Recordset.MoveNext
Loop

Close

End Sub