dim cn as new connection
cn.open "Provider=Ms Remote;Remote server =http://www.my.com;Remote Provider=MSDASQLl;Dsn=Pubs"
dim re as new recordset
re.cursorlocation=aduseclient
re.open tablename,cn,adopenstatic,adlockbatchoptimistic,adcmdtable
dim cn as new connection
cn.open "Provider=Ms Remote;Remote server =http://www.my.com;Remote Provider=MSDASQLl;Dsn=Pubs"
dim re as new recordset
re.cursorlocation=aduseclient
re.open tablename,cn,adopenstatic,adlockbatchoptimistic,adcmdtable