Hi All,
I am facing one problem. I am poplulating recordset from text file for writing using Microsoft Text Driver. And I add some records and update the recordsert. It is writing in the text file but it the values are written with Quotes. I do not want quotes for alphanumeric fields. At the same time I can not use Fixed Length for field defination as it should be of varing size as per the user enters the data.

Following is the code:

Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
con.CursorLocation = adUseServer
con.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.Path & ";"
rs.ActiveConnection = con
rs.LockType = adLockBatchOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open "SELECT * FROM [import.txt] WHERE 1=2"
rs.AddNew
rs.Fields(0) = "Test1"
rs.AddNew
rs.Fields(0) = "Test2"
rs.UpdateBatch
Set rs = Nothing
End Sub

Output to the Text File is
Field1
"Test1"
"Test2"

I need Output without quotes like following
Field1
Test1
Test2

Can anybody help me??
Thanks in advance