Hi,

You need to Clear NewSQL1 for each record...
Try This :
vb Code:
  1. Dim FN As Integer

  2. FN = FreeFile

  3. Open "C:\Temp1.txt" For Output As FN

  4. Do While Not RST.EOF = True

  5.    NewSQL1 = ""

  6.    For J = 0 To RST.Fields.Count - 1

  7.       NEWSQL1 = NEWSQL1 & ";" & Trim(RST.Fields(J).Value)

  8.    Next J

  9.    Print #FN, NEWSQL1

  10.    RST.MoveNext

  11. Loop

  12. Close FN

Regards
Veena