Ci sono alcune stranezze nel tuo codice. Richiami du evolte di fila il Reader quando lo devi fare solo una volta, quindi per prendere il testo usi il method GetByte che serve per prendere i dati in formato bytes dalla fonte dei dati. Dovresti fare qualcosa di questo tipo:
codice:
Dim ObjReader As SqlDataReader = MyCommand.ExecuteReader
dim trovato as Boolean=false
While ObjReader.Read
if nome_oggetto_con_nome=ObjReader.GetString("nome_campo_con_nome") and nome_oggetto_con_password=ObjReader.GetString("nome_campo_con_password") then trovato=true
End While
if trovato=false then
ErroreLogin.Text="Password o User Erratti"
return
end if
...
Ciao