cnn.Open StrCon
'PROVIDER=Microsoft.Jet.OLEDB.4.0
   rs.Open "select c.unitid from unit c where c.unitlevel like (select d.unitlevel+'*' from unit d where d.unitid =1", cnn, 3, 1