vb怎么连接oracle数据库

Imports Oracle.ManagedDataAccess.Client

Module Module1
    Sub Main()
        Dim connectionString As String = "User Id=username;Password=password;Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=hostname)(PORT=port))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=servicename)));"
        
        Try
            Using connection As New OracleConnection(connectionString)
                connection.Open()
                Console.WriteLine("Connected to Oracle Database")
                
                Dim command As New OracleCommand("SELECT * FROM your_table", connection)
                Dim reader As OracleDataReader = command.ExecuteReader()
                
                While reader.Read()
                    Console.WriteLine(reader("column_name"))
                End While
                
                reader.Close()
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            End Try
        End Sub
    End Module
End Module