如何在VBA中用ADO连接远程的access数据库

开始录制宏，进行一次导入，停止录制，然后编辑刚才的代码，获得关键语句来自己使用。

远程连接access数据库的几个方法：
1．建立VPN(Virtual Private Network)，然后把服务器中mdb文件所在的 Folder 共享即可。连接方法如下：
　　 “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\服务器名\\文件夹 \\mydata.mdb;Jet
OLEDB:Database Password=datapass;Persist Security Info=False”
2．把数据库放在Web 服务器上，使ADO或RDO通过RDS（Remote Data Service） 及IIS来实现：
如果服务器设置了ODBC DSN的话，连接方法如下：
"Provider=MS Remote;Remote Server=http://服务器名;Remote Provider=MSDASQL;DSN=AdvWorks;Uid=dataUserName;Pwd=dataPassWord"
如果设置的是OLE DB Provider 的话，连接方法如下：
　 "Provider=MS Remote;Remote Server=http://服务器名;Remote
Provider=Microsoft.Jet.OLEDB.4.0; Data Source=数据库文件路径,"+ "admin,"+"" (数据库用户e68a84e8a2ade799bee5baa6337名为：admin；密码为空)
3．编写服务器程序，通过TCP/IP，传递Recordset。
4．使用第三方控件，如：ADO Anywhere或UDAParts RDB等。
5．使用XMLHTTP

应用举例
OledbConnection myconn = null;
myconn = new OledbConnection("192.168.1.155", "DSN=mydata;DRIVER={Microsoft Access Driver (*.mdb)};UID=test;PWD=test;"); //其中服务器IP是 192.168.1.155 ;数据库名是 mydata ;数据库用户名这密码都是test myconn.Open();
没加入数据库的引用，ALT+F11加入你的Microsoft Access 所用的引用就没问题了

例如;远程SQLSERVER

连接字符串来为:

Provider=SQLOLEDB.1;Password=密码源;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名称Data Source=远程zd主机IP