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

Imports System.Data.OleDb

Module Module1

    Sub Main()
        Const kConnectionString = _
"Provider=MSDAORA.1;User ID=myUser; Password=myPass;Data Source=myServer;"
        Dim conn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim strSql As String

        Try
            conn = New OleDbConnection(kConnectionString)
            conn.Open()
            strSql = "Create Table test1(field1 varchar(10))"
            cmd = New OleDbCommand(strSql, conn)
            cmd.ExecuteNonQuery()
            Console.WriteLine("Statement executed.")

        Catch ex As Exception
            Console.WriteLine(ex.Message)

        Finally
            cmd.Dispose()
            conn.Dispose()

        End Try

        Console.WriteLine("Press Enter...")
        Dim strWait As String = Console.ReadLine()

    End Sub

End Module

    result = number ^ exponent
 
    value = 10 ^ x

Dir("E:\", FileAttribute.Volume)