SQL for loading highscore from a users account

 Private Sub LoadHighScore()
        Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Path")


        Dim command As New OleDbCommand("SELECT [HighScore] From [Log_in_Info] WHERE [Username] = @Username", connection) 'SQL Statement to update record in database

        Dim usernameparam As New OleDbParameter("@Username", Loginpage.usernametxtbox.Text) 'username parameter
        Dim Score As New OleDbParameter("@HighScore", playerhighscore) 'password parameter

        command.Parameters.Add(usernameparam) 'command parameter
        command.Parameters.Add(Score) 'command parameter 

        connection.Open() 'Opens connection to database
        playerhighscore = command.ExecuteNonQuery() 'Executes SQL Statement
        connection.Close() 'Closes connection to database
    End Sub