Yeah! With your help I solved it. I was over looking the simple answer.
First, when the original code ran, nothing happened???
So here is what I did.
Dim rs As Object
Set rs = Me.sfrm_Common.Form.Recordset.Clone
rs.FindFirst "[dt_Date] = DLookup('dt_Current', 'tbl_Stored_Date')"
If Not rs.EOF...