Visual Basic - Contador para ciertos registros

Buenas, yo consulto sobre algo similar quisiera un contador pero que me cuente los registros que en tal campo tiene tal numero, hay forma de hacerlo con algo de esto?

Data1.Recordset.RecordCount

el caso puntual es que tengo la tabla alquileres y quiero contar la cantidad de alquileres del libro=1

Gracias

se me e ocurre
localizar el registro(numero) a contar
hacer un for next de ese registro

Una simple consulta te devuelve eso:

Select Count(*) As Cuantos From alquileres where libro=1

Eso debe ser la consulta de tu recordset y listo