vb连接oracle问题

请教，我在我的电脑上测试通过的代码，为什么什么放到别的电脑上，就报“运行时错误 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