Glad to hear it. You're welcome.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"CurtH" wrote:
| GReat. Everything is working like a champ:-) Thanks again. If I need to
| add more tables. Copy this part of the code:
|
| Set Recordset = New ADODB.Recordset
| With Recordset
| ' Filter
| Src = "SELECT * " _
| & "FROM MedicalStatus " _ <==== Indicate the new table
| & "WHERE (((UNIT)='125 LOGISTICS READINES SQ') AND
((PASCODE)='C21CF2BF'));
| <==== Change criteria to match my needs
|
| Thanks again.