Трябва да се обадите отново
reader = com.ExecuteReader
След:
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
Току-що сте проверили, че има редове преди и не сте го променили.