主要代码如下:
Private Sub 连接button_Click()
Dim conn As New ADODB.Connection
Dim strConn As String
Dim OraOpen As Boolean
OraOpen = False
strConn = "Provider=OraOLEDB.Oracle.1;User ID=" & Text用户名.Value & _
";Password=" & Text密码.Value & _
";Data Source='(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" _
& Text服务器.Value & ")(PORT=" & Text端口号.Value & ")))(CONNECT_DATA=(SID=" _
& Text数据库.Value & ")))'"
conn.Open strConn '打开数据库
OraOpen = True
MsgBox ("Connection 完成!")
End Sub
点击连接之后,报错

------解决思路----------------------
用as new的话,要先引用,你看看你引用了没
------解决思路----------------------
Oracle驱动在哪里?
------解决思路----------------------
连接ORACLE数据库要安装ORACLE数据库的客户端。