Runtime error "Out of Stack Space"

[Ektaa]

I am facing an issue whenever i am trying to click on Open or double click on any record i am getting the following error message

Runtime error "Out of Stack Space"

I don't know whats wrong with it early i never got this message and for more information i am using Access 2007 and DAO method.

[Metechman]

It might happen that you have too many active Function, Sub, or Property procedure calls because of that you are getting this error message or check that procedures aren't nested too deeply. This is especially true with recursive procedures, that is, procedures that call themselves. Make sure recursive procedures terminate properly. Use the Calls dialog box to view which procedures are active.

[Ektaa]

I had a check for it everything is proper but i don't know why i am getting getting Out of Stack Space error message you can also have a check for the code might i have made any mistake

Private Sub SearchList_Data1Click(Cancel As Integer)
On Error GoTo Err_SearchList_DblClick
Dim Data1 As DAO.Database
Dim CN As DAO.Recordset

DoCmd.OpenForm "FrmProducts"

Set CN = Forms!FrmProducts.Recordset.Clone

CN.FindFirst "[ProductID] = " & Me.SearchList
Forms!FrmProducts.Bookmark = CN.Bookmark

DoCmd.Close acForm, Me.Name

Exit_SearchList_Data1lClick:
Exit Sub

Err_SearchList_Data1lClick:
MsgBox Err.Description
Resume Exit_SearchList_Data1lClick
End Sub

[Metechman]

As i can see in your code you have to replace the following code from

Set CN= Forms!FrmProducts.Recordset.Clone

to

Set CN = Forms!FrmProducts.Recordsetclone

because you are using DAO method not ADO method and i hope now you won't get Out of Stack Space error message.