run time error '6': overflow

[sparc]

Folowing code returned run time error '6': overflow

Dim MeDok As Recordset
Set MeDok = CurrentDb.OpenRecordset("SELECT * FROM Dokumenta WHERE " & _
"[dDok] = #" & Format(Me.[ddok], "yyyy-MM-dd") & "# ", dbOpenDynaset)

dDok is date field in table Dokumenta
me.ddok is date field in form

me access is access 2013

any help me

 

[pbaldy]

Looks okay offhand. Try disambiguating:

Dim MeDok As DAO.Recordset