Visual Basic - Que está mal aqui

Hola que tal
Gracias por su ayuda, este codigo captura los registros de una determinada fecha.
Set RSVen = DBVentas.OpenRecordset("SELECT * From Ventas WHERE fecha=#" & Format(CDate(txtBuscar(0).Text), "mm/dd/yy") & "#", dbOpenDynaset)

If RSVen.RecordCount = "0" Then
Exit Sub
Else
With RSVen
.MoveLast
.MoveFirst
End With
End If

Pero el siguiente codigo no me sale,
Estoy seleccionando por mes y no corre, en un combo agrego los meses del año y los comparo con la siguiente instruccion
Set RSVen = DBVentas.OpenRecordset("SELECT * From Ventas WHERE fecha=#" & Format(DateValue(cmbBuscar(1).Text), "mmmm") & "#", dbOpenDynaset)

En que parte no la pego?

Gracias

Un abrazo

Es sencillo:
Porque mejor no usas esto.

cad = DateValue(cmbuscar(1).text) 'devuelve el mes ejm 01,.....12
Set RsVen = bd.OpenRecordset("SELECT * From Ventas WHERE month(fecha)=" & cad, dbOpenDynaset)

para que veas el resultado agrega un list (esto es un ejemplo)
While Not RsVen.EOF
List1.AddItem RsVen(0) & " " & RsVen(1) & " " & RsVen(2)
RsVen.MoveNext
Wend