Steve, I think you missed the constant declaration on the first line of his
code.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.


"Steve" wrote in message
...
ProductTable needs to be enclosed inside double quotes.

Const ProductTable = "Products"
Dim MyTable As Recordset
Dim MyDB As Database
Dim PNHolder As String

Set MyDB = CurrentDb()
Set MyTable = MyDB.OpenRecordset(ProductTable) ---ß Error
appears here??