you can use ExecuteScalar method as below 
object nama_studentObj = cmd.ExecuteScalar()
if nama_studentObj != null then
  string nama_student= nama_studentObj .ToString()
Full example code
    Dim cs As String = "Database=testdb;Data Source=localhost;" _
        & "User Id=testuser;Password=test623"
    Dim stm As String = "SELECT VERSION()"
    Dim version As String
    Dim conn As MySqlConnection
    Try
        conn = New MySqlConnection(cs)
        conn.Open()
        Dim cmd As MySqlCommand = New MySqlCommand(stm, conn)
        version = Convert.ToString(cmd.ExecuteScalar())
        Console.WriteLine("MySQL version: {0}", version)
    Catch ex As MySqlException
        Console.WriteLine("Error: " & ex.ToString())
    Finally
        conn.Close()
    End Try
Note :
Better to use parameters when you call database, like below 
cmd.CommandText = "SELCECT nama_student  FROM student where Id_student = @Id_student"
then you have to add the parameter as
cmd.Parameters.AddWithValue("Id_student", id )
How do I create a parameterized SQL query? Why Should I?