Access - error en consulta Access con visual basic

Hola tengo el siguiente problema usando un parametro fecha, el formato con el que esta registrado el dato es dia/mes/año:

la siguiente consulta funciona bien desde el diseñador de consultas de access y devuelve 1 registro.

SELECT Dominio_Arancel.IdArancel, Dominio_Arancel.Periodo, Dominio_Arancel.Estado, Dominio_Arancel.Ciclo, Dominio_Arancel.idDominio
FROM Dominio_Arancel
WHERE (((Dominio_Arancel.Periodo)=#5/7/2018#) AND ((Dominio_Arancel.idDominio)=46));


pero cuando llevo este codigo a visual basic devuelve cero registros.

intente con el siguiente codigo pero nada.
Sub RegistrarArancel(periodo As Date)
-
-
cmd.CommandText = "Select * from Dominio_Arancel Where Dominio_Arancel.idDominio=" & pIdDominio & " And Dominio_Arancel.Periodo=" & "#" & periodo & "#"
-
-
end sub

Podrian ayudarme?

me paso la respuesta EcoExcel por otro medio, pero la dejo por si alguien le pasa lo mismo
Access solo reconoce las fechas en formato mm/dd/yyyy

Cambiando eso se soluciono.
Select * from Dominio_Arancel Where Dominio_Arancel.idDominio=" & pIdDominio & " And Dominio_Arancel.Periodo=" & "#" & Format(periodo, "mm/dd/yyyy") & "#", Conn, adOpenDynamic, adLockOptimistic

Access tiene una función (CDate) que tiene como única misión el reconocer la fecha en el formato local (Europeo, Americano, Japonés, otros ...) y convertirla a un dato de fecha Access (que no es el formato americano que utiliza en VBA: es un numero)