Je zou opnieuw moeten bellen
reader = com.ExecuteReader
Na:
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
Je hebt zojuist gecontroleerd of het eerder rijen heeft en je hebt het niet gewijzigd.