Use Of ME With Modules

Hello,

I am getting an error with the Me function if present in modules. Is this because a module is Public?
How can I fix this problem and make the code run in a module?
Thank you.

This code runs an append query before closing a form named form1 and open another form named form2 using the c/n as linking criteria.

I am getting the error with Me.

I am trying to run this module from a menu bar.

thank you for you help.

Dim mydb As DAO.Database, MyRs As DAO.Recordset
Dim strCode As String
Dim strFilter As String
Dim stDocName As String
Dim stLinkCriteria As String

Set mydb = CurrentDb
Set MyRs = mydb.OpenRecordset("list")

stDocName = "form1"

stLinkCriteria = "[c/n]=" & "'" & Me![C/N] & "'"


DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenQuery ("AppendHISTORY")

DoCmd.Close
DoCmd.OpenForm ("form1")




End Sub