Vous devriez avoir à rappeler
reader = com.ExecuteReader
Après :
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
Vous venez de vérifier qu'il y a des lignes avant et vous ne l'avez pas changé.