Concatenate string with ";"

[luca90]

I looping recordset....
I need to create a string deleimited from ";" for each row in table, but the code dont work correct!

NEWSQL1 = ""
NEWSQL = ""
I = 2
Do While Not RST.EOF = True
For J = 0 To RST.Fields.Count - 1
NEWSQL = Trim(RST.Fields(J).Value)
NEWSQL1 = NEWSQL & ";"
Debug.Print NEWSQL1
Next J
Print #1, NEWSQL
RST.MoveNext
I = I + 1
Loop

Note:
In other case is required the last ";" if i want to import in access datatable the txt file?