Just because I keep forgeting the syntax and it is easier to lookup here.

Dim rsEeList As ADODB.Recordset
Dim rsPrMast As ADODB.Recordset, rsPrEtax As ADODB.Recordset
Dim cnSummit As ADODB.Connection
Dim strCn As String, strSql As String, location As String, dateStart As Date, dateStop As Date
Dim passCnt As Long, strWork As String, lngWork As Long

dateStart = Now()
passCnt = 0
Set rsEeList = New ADODB.Recordset
Set rsPrMast = New ADODB.Recordset
Set rsPrEtax = New ADODB.Recordset
Set cnSummit = New ADODB.Connection

cnSummit.Open SummitDSN & SummitDb
strSql = "SELECT * FROM PR_MAST Where Hire_Date = '2010-01-01'"
rsPrMast.Open strSql, cnSummit, adOpenKeyset, adLockOptimistic
strSql = "Select * from PR_ETAX Where Eff_Date = '2010-01-01'"
rsPrEtax.Open strSql, cnSummit, adOpenKeyset, adLockOptimistic
strSql = "select * from " & eeListTable
rsEeList.Open strSql, CurrentProject.Connection, adOpenStatic, adLockOptimistic