Option Explicit

Dim m_oraSession As Object
Dim m_oraDatabase As Object

Private Sub Command1_Click()

    Set m_oraSession = CreateObject("OracleInProcServer.XOraSession")
    Set m_oraDatabase = m_oraSession.DBOpenDatabase("Database", "user/password", 0&)
    
    MsgBox "Connected to " & m_oraDatabase.Connect & "@" & m_oraDatabase.DatabaseName
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set m_oraDatabase = Nothing
    Set m_oraSession = Nothing
    
End Sub

Option Explicit

Public m_adoCnn As New ADODB.Connection
Public m_adoRst As New ADODB.Recordset

Public Sub Command1_Click()
    
    m_adoCnn.ConnectionString = "Provider=MSDAORA;Password=tiger;User ID=scott;Data Source=database"
    m_adoCnn.Open
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

    m_adoCnn.Close
    
End Sub