¿Cómo contar registros en visual basic 6?

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 count (fechaentrega) 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