请教，我在我的电脑上测试通过的代码，为什么什么放到别的电脑上，就报“运行时错误 3706”
直接运行exe也报错同样错。

都装有oracle客户端，tnsnames配置也是一样的。
本机需要什么运行环境呢。谢谢。

我在工程里引用了 Microsoft ActiveX Data Objects 2.0 Library
代码如下：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr, sqlstr As String
constr = "provider=oraoledb.oracle;data source=deve ;user id=usr;password=pwd;Persist Security Info=True"
con.ConnectionString = constr
con.Open
sqlstr = "insert into aaa values(333133)"
rs.Open sqlstr, constr

报错在 con.Open
这一行

缺少Microsoft ActiveX Data Objects 2.0 Library

谢谢斑竹，我在开发环境引用了 Microsoft ActiveX Data Objects 2.0 Library
别人的电脑也引用了。
你是说，别人的机器上缺少Microsoft ActiveX Data Objects 2.0 Library？不是仅仅“引用”一下就可以吗？
他的电脑上需要安装什么呢？

一般网络数据库连接需要注册连接端口的（默认情况下sql为1433，oracle为1521），如果你本机已经安装oracle客户端，则会自动注册端口，所以你在本机测试能成功，但由于其他机器没有注册端口号，则不能连接数据库。似乎要在客户端安装一个oracle oci和【Oracle ODBC driver（通过手动设置odbc的oracle连接可以自动注册端口）】