Sub Activity_Resume
If File.Exists(File.DirRootExternal, "Breakout.db") = False Then
File.Copy(File.DirAssets, "Breakout.db", File.DirRootExternal, "Breakout.db")
End If
Sql1.Initialize(File.DirRootExternal,"Breakout.db",True)
Cursor1 = Sql1.ExecQuery("SELECT * FROM HighScores")
For i = 0 To 4
Cursor1.Position = i
PlayerName(i) = Cursor1.GetString("PlayerName")
PlayerScore(i) = Cursor1.GetInt("PlayerScore")
Next
Cursor1.Close
lblPlayerName1.Text = PlayerName(0)
lblPlayerScore1.Text = PlayerScore(0)
lblPlayerName2.Text = PlayerName(1)
lblPlayerScore2.Text = PlayerScore(1)
lblPlayerName3.Text = PlayerName(2)
lblPlayerScore3.Text = PlayerScore(2)
lblPlayerName4.Text = PlayerName(3)
lblPlayerScore4.Text = PlayerScore(3)
lblPlayerName5.Text = PlayerName(4)
lblPlayerScore5.Text = PlayerScore(4)
End Sub