[VB.NET]OLEDBを使用してOracleへ接続する

Imports System.Data.OleDb

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim connection As OleDbConnection = Nothing

    Try
        '引数に接続文字列を指定
        connection = New OleDbConnection("Provider=OraOLEDB.Oracle;User Id=ユーザーID;Password=パスワード;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=ホスト名)(PORT=1521)))(CONNECT_DATA=(SID=ORCL)(SERVER=DEDICATED)));")

        '接続
        connection.Open()

        MessageBox.Show("接続成功")

    Catch ex As Exception
        '接続失敗
        MessageBox.Show(ex.ToString, "接続エラー")
    Finally
        If connection IsNot Nothing Then
            '接続を閉じる
            connection.Close()
            connection = Nothing
        End If
    End Try
End Sub