Du borde behöva ringa igen
reader = com.ExecuteReader
Efter:
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
Du har precis kontrollerat att det har rader tidigare och du har inte ändrat det.