Dim Query As Supabase_DatabaseSelect = xSupabase.Database.SelectData
Query.Columns("message,created_by,id, users(username)")
Query.From("dt_Chat")
Query.Filter_Equal(CreateMap("room_id":3))
Wait For (Query.Execute) Complete (DatabaseResult As SupabaseDatabaseResult)
For Each Row As Map In DatabaseResult.Rows
AddItem(Row.Get("message"), Row.Get("created_by") = User.Id,Row.Get("users.username"))
Next