Private Function OpenConnection_Oracle10()

   Dim strSQL

   On Error Resume Next

   OpenConnection_Oracle10= False

   strSQL = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=用户名;PassWord=密码;Data Source=orcl10g"

   Set MyConn = CreateObject("ADODB.Connection")

   With MyConn

      .CursorLocation = 3

      .ConnectionString = strSQL

      .Open

   End With

   OpenConnection_Oracle10= True

End Function

其中连接字符串中的用户名、密码根据你的实际填写；数据源是数据库名。