Visual Basic para Aplicaciones - No encuentro el error

Hola
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