Msgbox(SQL1.ExecQuerySingleResult("SELECT max(teamscore) FROM GamePlay Limit 1"),"HighScore")
lblHighScore.Text = SQL1.ExecQuerySingleResult("SELECT max(teamscore) FROM GamePlay Limit 1")
Msgbox(SQL1.ExecQuerySingleResult("SELECT max(teamscore) FROM GamePlay Limit 1"),"HighScore")