Consulta sql en función vb

Hola experto, ante que nada agradezco tu cooperación para con los usuarios, mi consulta es la siguiente:

He realizado una función para detectar que un pedido a un proveedor solo sea posible si el mes, año y consola ya no esté registrado en la base. Es decir, el sistema solo permite registrar un solo pedido por mes y año a determinado proveedor, en caso de existir no carga el pedido.

Mi función es la siguiente:

Private Function Validar()
Dim rsfecha As New Recordset
Dim consulta As String
consulta = "select mes, año, consola from Pedidos where mes like'" & Combo1.Text & "'" & "and año =" & Text5.Text & " and consola like'" & Text2.Text & "'"
rsfecha.Open consulta, con, adOpenStatic, adLockOptimistic
If Not (rsfecha.BOF And rsfecha.EOF) Then
'es una fila existente
MsgBox "Pedido ya realizado", vbCritical
Else
Validar = True
End If
rsfecha.Close
End Function

Según el valor de esta función mi procedimiento Guardar carga en la base de datos.

Mi problema pasa que al repetir la carga de un pedido de un mes y año existente me da error:

No coinciden los tipos de datos en la expresión de criterios y me marca la línea de código que tengo en negrita.

Por lo visto tengo mal la consulta, pero no se porque?

Desde ya muchas gracias y saludos!!