il datareader non ti serve, puoi usare il metodo ExecuteScalar del Command che hai creato.
Questo metodo ti restituisce il PRIMO VALORE della PRIMA COLONNA della select.
Fai un controllo e se ti restituisce l'username allora esiste, altrimenti no.
codice:
Dim conn As New OdbcConnection()
conn.ConnectionString = "DSN=mioDB"
Dim SQLUtenti As String
SQLUtenti = "SELECT account, password FROM tlogin WHERE account='" & username & "' AND password='" & pass & "'"
Dim datas As New OdbcCommand(SQLUtenti, conn)
conn.Open()
Dim MioAccount as String = datas.ExecuteScalar
If MioAccount = Nothing Then
'Account Inesistente
else
' Account Esistente
End if
conn.Close()
Se non mi sbaglio dovrebbe restituirti nothing...fai una prova