求一段连接SQL SERVER和oracle的代码

Question

连接上面两种数据库的源码，可否帮写一下，谢谢

Answer 1

Dim AdoConnect As ADODB.Connection
Set AdoConnect = New ADODB.Connection
ConnStr = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=sa;PassWord=sa;Data Source=dytd"
AdoConnect.ConnectionString = ConnStr
AdoConnect.Open

Answer 2

Dim AdoConnect As ADODB.Connection
Set AdoConnect = New ADODB.Connection
ConnStr = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;PassWord=sa;Data Source=dytd"
AdoConnect.ConnectionString = ConnStr
AdoConnect.Open