B4XTable2.AddColumn("first", B4XTable2.COLUMN_TYPE_TEXT)
Dim Data2 As List
Data2.Initialize
Dim rs As ResultSet = sql.ExecQuery($"SELECT FirstName FROM customers"$)
Do While rs.NextRow
Dim row2(1) As Object
row2(0) = rs.GetString("FirstName")
Data2.Add(row2)
Loop
rs.Close
B4XTable2.EvenRowColor=Colors.Cyan
B4XTable2.SetData(Data2)