Tengo dos problemas aca los explico

Tengo este code

Código:

 dFecMin = CDate("01/" & Right(dtpFecha.Value, 7))
 Select Case CInt(Mid(dtpFecha.Value, 4, 2))
 Case 1, 3, 5, 7, 8, 10, 12
 iDias = 31
 Case 4, 6, 9, 11
 iDias = 30
 Case 2
 If Right(dtpFecha.Value, 4) Mod 4 = 0 Then
 iDias = 29
 Else
 iDias = 28
 End If
 End Select
 
 dFecMay = CDate(iDias & Right(dtpFecha.Value, 8))
 sSql = "Select Fecha,Hora from Notas where fecha between #" & dFecMin & "# And #" & dFecMay & "#"
 sError = "No hay Registros con el mes Seleccionado"

Funciona bien el problema es ke por ejemplo tengo un registro con la fecha "25/06/2007" en mi tabla, es la unica, ahora el code anterior sirve para seleccionarme los registros del mes seleccionado el el datepicker, ahora si a lo que voy, si selecciono el mes 5 o menorme manda el error de que no hay registros hasta aqui todo bien pero si selecciono el 7 o mayo me hace la consulta normal, osea que si me devuelve registros y no deberia por que 25/06/2007 no esta en el mes 7... me tiene komo loko por ke ya cheque dfecmin y dfecmay para constatar que me devuelve en este caso 01/07/2007 y 31/07/2007 y los devuelve pero aun asi agarra el registro, cual sera el error

ahora por la segunda duda

si quiero hacer un find armo asi la cadena

tNotas.Find "[Fecha] = '" & lsvFecha.SelectedItem.Text & "'"
pero o sorpresa puede haber varios registros con el mismo dia le puse el and pero me marca error kisiera saber si se puede usar el and en el metodo find, queiro evitarme el recordset, la solucion que le encuentro seria usar el Id como referencia pero si alguien sabe como dar mas parametros de busqueda en find por fa digame

Gracias de antemano a las respuestas

Hola Zitro,
Si lo que quieres es seleccionar los registros cuyo mes coincida con el indicado en el DTPIcker, puedes hacer la consulta así:

Código:

sSql = "Select Fecha,Hora from Notas where Month(Fecha) =" & Month(dtpFecha) & " And Year(Fecha) = " & Year(dtpFecha)

Y no necesitas la condición Select Case.

En cuanto al método Find:
Este no admite operadores And - Or, pero puedes probar con Filter que sí los admite.

Saludos