adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\fyzInfo.mdb;Persist Security Info=False"
adocon.CursorLocation = adUseClient
reset1.Open "
select *  from OPENDATASOURCE(
         'SQLOLEDB',
         'Data Source=(local);User ID=sa;Password='
         ).pubs.dbo.authors", adocon, adOpenDynamic, adLockOptimistic