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 