Visual Basic.NET - Consulta SQL

Function prestamo(ByRef numero As Integer) As Boolean

Dim oConexion As New SqlConnection()
oConexion.ConnectionString = "Data Source=GRANDE\SQLEXPRESS;Initial Catalog=Biblioteca;Integrated Security=True"
Dim oCmdSql As New SqlCommand
Dim dev As Integer
oConexion.Open()

oCmdSql.CommandType = Data.CommandType.Text
oCmdSql.CommandText = "select * from prestamo where numero = '" & TxCodLibro.Text & "'"
oCmdSql.Connection = oConexion
dev = oCmdSql.ExecuteNonQuery()
oConexion.Close()

Label17.Text = dev

If dev = -1 Then
Return True
Else
Return False
End If


End Function

Esta rutina es solo la funcion, que combinada con otra rutina mayor, realiza una busqueda de un registro y si lo encuentra o no, ejecuta otros procedimientos.

El problema es que en esta rutina de la funcion, siempre la consulta me retorna -1, haya encontrado o no registros, este la tabla vacia o no.

Que debo hacer o que sucede?

Gracias

hola Tony, y si lo haces asi:

Function prestamo(ByRef numero As Integer) As Boolean

Dim oConexion As New SqlConnection()
oConexion.ConnectionString = "Data Source=GRANDE\SQLEXPRESS;Initial Catalog=Biblioteca;Integrated Security=True"
Dim oCmdSql As New SqlCommand
Dim dev As New DataTable
oCmdSql.CommandType = Data.CommandType.Text
oCmdSql.CommandText = "select * from prestamo where numero = '" & numero & "'"
oCmdSql.Connection = oConexion
Dim oAdapter As New SqlDataAdapter(oCmdSql)
oAdapter.Fill(dev)
If dev.Rows.Count > 0 Then
Return True
Else
Return False
End If
End Function

Gracias David, justamente me funciono con el If dev.Rows.Count>0 pero primero llenando un DataSet.

Despues me di cuenta de que resultava tambien igual cuando le pones a la funcion:

Protected Function..... en vez de solo Function.......

Gracias hermano