Peet,

I got it working by changing the two Dim statements to read as follows:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Now works like a champ.

Removed the DAO above and it broke again. Put it back and it worked. Any idea why? At any rate, thanks for your help.

Rev. Michael L. Burns