Sub btn_Click
Dim l As List
l.Initialize
Dim o() As Object = B4XTable1.BuildQuery(False)
Dim s As String =$"SELECT c0, c0 || '${CRLF}'
|| c1 As c01,c2 FROM data
"$ 'you are combining the first 2 columns
o(0)=s
o(1)= Null
Dim rs As ResultSet = B4XTable1.sql1.ExecQuery2(o(0), o(1))
Do While rs.NextRow
Dim r(3) As String
r(0) =rs.GetString("c0")
r(1) =rs.GetString("c01")
r(2) =rs.GetString("c2")
l.Add(r)
Loop
rs.Close
B4XTable1.SetData(l)
End Sub