Another way of doing it

Set rs = New ADODB.Recordset
rs.Open "select  *  from StaffTable where EmpDate <= "& DateString1 &" and
EmpDate >= "& DateString2 &", cn, adOpenDynamic, adLockPessimistic


Sammy Msafiri