dim newcn as adodb.connection
newcn.open "provider=sqloledb;date sourse=远程的SQL Server服务器name..."