Connection String in Public Function

Connection String in Public Function:

Imports System.Data

Imports Oracle.DataAccess.Client 

Imports Oracle.DataAccess.Types

Public Function Opencon() As OracleConnection

        Dim oradb As String = "Data Source=XE;User Id=HR;Password=password;"

        Dim conn As New OracleConnection(oradb)

        conn.Open()

        Return conn

        conn.Close()

 End Function

Using this function:

 Using conn = Opencon()

...............code......

 End Using