在VB中，如何连接远程数据库（internet上的数据库服务器）？请给示范代码。我只有这么多分。

[kwq_cn]

[vbFly]

GZ

[ych_li]

关注

[cqq_chen]

用ADO，但要服务器方允许你访问才可以。

[Richard2001]

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"

[vbFly]

楼上的，问一句，如果是通过代理上网，你那个就连不上，请问怎么处理呢？？？

[kwq_cn]

Richard2001(Richard)
需要引用什么？

[mazhayang]

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