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
adocon.CursorLocation = adUseClient
reset1.Open "
select * from OPENDATASOURCE(
'SQLOLEDB',
'Data Source=(local);User ID=sa;Password='
).pubs.dbo.authors", adocon, adOpenDynamic, adLockOptimistic
adocon.CursorLocation = adUseClient
reset1.Open "SELECT * FROM OPENROWSET('SQLOLEDB','(local)';'sa';'',pubs.dbo.authors)", adocon, adOpenDynamic, adLockOptimistic