Imports System.Data
Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider
Imports oracle.DataAccess.Types
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oradb As String = "Data Source=orcl;User Id=sysdba;Password=masterkey;"
        Dim conn As New OracleConnection(oradb)
        conn.Open()
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select * from sysdba.users where loginname='minioracle'"
        cmd.CommandType = CommandType.Text
        Dim dr As OracleDataReader = cmd.ExecuteReader()
        dr.Read()
        Label1.Text = dr.Item("loginname")
        conn.Dispose()
    End Sub
End Class