vb连接Oracle数据库

Global oOraSess As Object
Global oOraDb As OraDatabase
Global Const ORADB_ORAMODE = &H1&

Set oOraSess = CreateObject("OracleInProcServer.XOraSession")
Set oOraDb = oOraSess.OpenDatabase(DSN, UID & "/" & PWD, ORADB_ORAMODE)

这样也可以
db = "Provider=MSDAORA.1;Password=chun;User ID=chun;Data Source=chun;Persist Security Info=True"
conn.CursorLocation = adUseClient
conn.Open db
'chun 是数据库名 密码 连接数据源