¿Cómo contar registros con visual basic 6?

Buenas...

Tengo una base de datos en access 2000 en la que hay un tabla de prestamos y uso conexión a ella con adodc.

Lo que quiero hacer es lo siguiente:

mostrar en un label pero con números la cantidad registros del campo "fechaentrega" que sean iguales al día de hoy.

He probado con lo siguiente:

Dim con As Integer

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BCBD.mdb"
Adodc2.CursorType = adOpenDynamic
Adodc2.RecordSource = "préstamo"
Adodc2.Refresh

hoy = date

con = Adodc2.RecordSource = "select * from préstamo where (fechaentrega) like '" & hoy & "'"

label = con

Hago esto pero me muestra "0"

Nota: En la BD si hay registros con la fechaentrega de hoy