Try

            Dim oradb As String = "Data Source=(DESCRIPTION=((ADDRESS=(PROTOCOL=TCP)(HOST=10.53.1.49)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=BSNKLA)));User Id=BSNKLA;Password=BSNKLA;"

            Dim conn As New Oracle.DataAccess.Client.OracleConnection(oradb)

            conn.Open()

            Dim cmd As New Oracle.DataAccess.Client.OracleCommand

            cmd.Connection = conn

        Catch ex As Oracle.DataAccess.Client.OracleException ' intercepte seulement les erreurs Oracle
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try

        Dim Ex As Exception
        Dim oradb As String = "Data Source=(DESCRIPTION=" _
                   + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=TU_IP)(PORT=1521)))" _
                   + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=ES_TUYO)));" _
                   + "User Id=ES_TUYO;Password=ES_TUYO;"

        Dim conn As New OracleClient.OracleConnection(oradb)

        conn.ConnectionString = oradb
        Try
            conn.Open()
        Catch Ex
            Tmr_conectar.Enabled = False
            MsgBox(Ex.Message, MsgBoxStyle.Critical, Ex.Source)
        End Try

        If conn.State = ConnectionState.Open Then
            MsgBox("La conexion fue exitosa.", MsgBoxStyle.Exclamation)
        End If

        'enviar(comandos)
        Dim sql As String = "select * from bsn_product"
        Dim cmd As New OracleClient.OracleCommand(sql, conn)
        cmd.CommandType = CommandType.Text

        'leer
        Dim dr As OracleClient.OracleDataReader = cmd.ExecuteReader()
        dr.Read()
        'Label1.Text = dr.Item("c_primero") ' se puede usar cualqueira
        'Label1.Text = dr.Item(0) 'de estas 3 lineas para
        'Label1.Text = dr.GetString(0) 'obtener los datos


        'cerrar
        conn.Close()
        conn.Dispose()

        Tmr_conectar.Enabled = False