Ayuda con Dlookup

Saludos
Gracias anticipadas por vuestro esfuerzo desinteresado.
Alguno de ustedes me podría ayudar con este evento, hasta ahora tengo esto
pero cuando lo ejecuto
me sale este mensaje
!!El carácter de declaración de tipo no coincide con el tipo de datos
declarados!!
y ya no se por donde seguir pues no soy muy ducho en esto como imagino
habréis notado
Gracias


Private Sub Buscador_Click()
Dim parametro As String, resultado As Date
parametro = InputBox("Introduzca fecha", "BUSCA FECHA")
resultado = DLookup("[Fechas]", "Fecha", "[Fecha] =" & parametro&)
If IsNull(resultado) Then
MsgBox ("No existen entradas de artículos con esa fecha")
Else
DoCmd.OpenForm "Entrada_Subformulario", , , "Fecha = " & parametro&
End If
End Sub