如何连接远程数据库（internet上的数据库服务器）？

　　kwq_cn 问：
在VB中，如何连接远程数据库（internet上的数据库服务器）?

Richard 答：
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=YourUserName;Password=YourPassword;Initial Catalog=远程数据库名;Data Source=远程服务器的IP地址（如172.00.00.000)"

如：(SQL Server)
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=WanLing;Password=Wan1234;Initial Catalog=资产管理系统2000;Data Source=199.88.111.345"

蚂蚱先生 答：
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