Imports System Imports Oracle.DataAccess.Client class Hello Shared Sub Main() Dim conStr As String = "Data Source=ORCL;" _ & "User Id=scott;" _ & "Password=tiger" Dim sqlStr As String = "SELECT 'Hello, ODP.NET World!' AS Message FROM DUAL" Dim con As OracleConnection = New OracleConnection(conStr) Dim cmd As OracleCommand = New OracleCommand(sqlStr, con) con.Open() Dim reader As OracleDataReader = cmd.ExecuteReader() While reader.Read() Console.WriteLine( reader.GetName(0) ) Console.WriteLine( "---------------------" ) Console.WriteLine( reader(0) ) End While reader.Close() con.Close() End Sub End Class