Você deve ter que ligar novamente
reader = com.ExecuteReader
Depois:
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
Você acabou de verificar se há linhas antes e não as alterou.
