ACCESS本身并不提供这样的工具,只能自己编程实现。实现方法很多,下面提供我认为比较简单的一种:
dim ds as new RDS.DataSpace
dim df as RDSServer.DataFactory
dim rs as ADOR.Recordset
set df = ds.CreateObject("RDSServer.DataFactory", "远程服务器名称")
set rs = df.Query("("DSN=pubs;UID=sa;PWD=permission;", _
"Select * From Authors")