Dim DBFilePath As String = File.DirRootExternal
Dim MyTextWriter As TextWriter
Dim MyList As List
Dim MyCode As String
Dim txt As String
MyList.Initialize
MyTextWriter.Initialize(File.openoutput(DBFilePath,"Chems.csv",False))
txt = "SELECT * FROM tblChemicals"
Cursor1 = SQL1.ExecQuery(txt)
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
Mycode =Cursor1.GetString("CODE") & "," & Cursor1.GetString("CHEMICAL") 'comma delimnited text File
MyList.Add(Mycode)
Next
MyTextWriter.WriteList(Mylist)
MyTextWriter.close