VB如何连接ORACLE数据库

　　'打开数据库

　　Publ Sub OpenOraDB()

　　On Error GoTo ToExit

　　OraDB_Open = False

　　Set OraDB = New ADODB.Connection

　　OraConstr = "Provider=OraB.Oracle.1;Password=" & strOraPWD & ";User ID=" & strOraUser & ";Data Source=" & OraDBNetName & ";Persist Security Info=False"  

　　OraDB.Cursoration = adUseServer

　　OraDB.Open OraConstr

　　OraDB_Open = True

　　Exit Sub

　　ToExit:

　　'MsgBox "连接数据库服务器错误,您可以在网络正常后继续使用.",vbInformation , "错误信息"

　　OraDB_Open = False

　　End Sub

　　'关闭数据库

　　Public Sub CloseOraDB()

　　If OraDB_Open = True Then

　　If (OraDB.State = adStateOpen) Then

　　OraDB.Close

　　Set OraDB = Nothing

　　OraDB_Open = False

　　End If

　　End If

　　End Sub

　　'打开数据集,写入数据

　　Set OraRS = New ADODB.Recordset

　　OraRS.ActiveConnection = OraDB

　　OraRS.CursorLocation = adUseServer

　　OraRS.LockType = adLockBatchOptimistic

　　strOraRS = "select * from " & OraDBtablename

　　OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic

　　OraRS.AddNew

　　OraRS.Fis("PID") = strOraPID

　　OraRS.Fields("pname") = strName").Value

　　OraRS.Fields("psex") = strPsex

　　OraRS.Update

　　'关闭数据集

　　OraRS.Close

　　Set OraRS = Nothing