आपको फिर से कॉल करना होगा
reader = com.ExecuteReader
इसके बाद:
com = New MySqlCommand("SELECT id FROM accounts WHERE pword = '" & txtpword.Text & "' AND uname='" & txtuname.Text & "'", con)
आपने अभी-अभी जाँच की है कि इसमें पहले पंक्तियाँ हैं और आपने इसे नहीं बदला है।