Visual Basic.NET - Saber si una Select devuelve alguna fila

Buenas tardes,

Me gustaría saber como puedo hacer para saber si una select devuelve alguna fila, si no recuerdo mal, alguna vez q lo he hecho era así:

Dim filtro As DataTable = sqlConnection.ejecutarSQL("SELECT * FROM CLIENTES WHERE CodCliente = " & TxtCliente.Text)

If filtro.Rows.Count > 0 Then

Y de esta manera sabía si devolvia una fila, pero ahora me subraya la sentencia sql y me dice que esta expresión no genera un valor. En realidad no lo he declarado como valor, sino como dataTable, así que no se que pasa. Si alguien me puede echar una mano...

Gracias, saludos

Yo lo que hago es

Dim dbConn as SqlConenection ' Conexion a la B.D.
Dim ordensql as SqlCommand
Dim rsAux as SqlDataReader


ordensql = dbConn.CreateCommand
ordensql.ComandText= "SELECT *..........." 'Consulta a ejecutar
rsAux = ordensql.ExecuteReader ()

if Not rsAux.Read then
' No se han encontrado registros
else
' Se han encontrado registros
endif

Hola apacheco,

Muchas gracias por tu respuesta, pero continua sin funcionarme, al igual que antes, me dice que la expresión no genera un valor.

Saludos.

Tienes datos en la tabla?, hay algo en la caja de texto?. De todas formas estas comparando un string con un integer.
Te dejo un ejemplo:

Dim Conexion As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Construccion;Integrated Security=True"
Dim MiConexion As New SqlConnection(Conexion)
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim SQL As String
Dim miTabla As New DataTable

SQL = "select * from clientes where CodCliente = " & val(TxtCliente.Text)

Com = New SqlCommand(SQL, MiConexion)

Rs = Com.ExecuteReader()

miTabla.Load(Rs, LoadOption.OverwriteChanges)
DataGridView1.DataSource = miTabla
If DataGridView1.RowCount <> 0 Then
.....
.....
.....
end if


En este caso los datos los vuelco a un DataGrid, espero te sirva el ejemplo.

Hola,una opcion es usar executescalar() del comando, creo que esto podra servirte:

Dim comando As New SqlCommand
Dim rs As SqlDataReader
Dim k As Integer
Call conectarBD() ' Funcion que conecta a la BD
comando.Connection = g_conexion
comando.CommandText = "SELECT count(*) FROM Usuario"
comando.CommandType = CommandType.Text
k = comando.ExecuteScalar()
MsgBox("Filas : " & k)

Saludos