Visual Basic

Imports System.Data.OleDb

Sub DoSomethingInOracle()
    '-- setup a connection string for Oracle
    '-- using the Microsoft OleDb provider
    Const kConnectionString = _
"Provider=MSDAORA.1;User ID=myUser; Password=myPass;Data Source=myServer;"

    Dim conn As OleDbConnection        

    Try            
        '--establish the connection
        conn = New OleDbConnection(kConnectionString)            
        conn.Open()            
    
        '--do something useful with the connection;
        '-- probably setup an OleDbCommand object
        '-- to run a query, or execute a stored
        '-- procedure...

        ...
        
    Catch ex As Exception            
        '--do something with the exception
        ...

    Finally            
        '--close and dispose the OleDbConnection object
        conn.Dispose()        
    End Try        

End Sub