Dim cur As ResultSet
Try
cur = Main.SQLite.ExecQuery("Select id,name, posts, replies, short, last_post_by FROM forumgroup")
Do While cur.NextRow
txt = txt & $"<div class="w3-card-4 w3-margin-8">"$
txt = txt & $" <div class="w3-row w3-card-2 w3-theme-l5 w3-padding">"$
txt = txt & $" <div class="w3-col l1 m1 w3-center w3-small">"$
txt = txt & "   posts:  <b>" & cur.GetString("posts") & "</b><br> replies:  <b>" & cur.GetString("replies") & "</b>"
txt = txt & $" </div>"$