Ayuda: Clase en VB.NET para conectar a BD Oracle

Hola, ??? a ver quien me puede ayudar, necesito hacer una clase en VB.NET que me haga cuatro cosas:

1- Una funcion que me conecte a un Base de Datos Oracle y me regrese si se conecto
2- Una funcion que me permita ejecutar una cadena de consulta SQL y me regrese un DataReader
3- Una funcion que me permita ejecutar un cadena SQL para elinimar, agregar o modificar y me regrese un boolean si se hicieron los cambios
4- Y por ultimo una que me cierre la conexion

ya tengo algo:

Código:

Imports System.Data
Imports System.Data.oracleclient

Public Class Conexion

Dim CNN As New oracleConnection
Dim CMD As New oracleCommand


    '"Data Source=MyOracleDB;User Id=username;'Password=passwd;Integrated Security=no;"
    Public Function Abrir(DSource As String, UsID As String, Pass As String, IntSec As String) As Boolean
        
        CNN.ConnectionString = "Data Source=" & DSource & ";User Id=" & UsID & ";Password=" & Pass & _
            ";Integrated Security=" & IntSec & ";"
        CNN.open()
        
        If CNN.Status = 1 Then 'Si se conecta entonces
            Return(True)
        Else
            Return(False)
        End If
        
    End Function

    Public Function ConsultaSQL(CadenaSQL As String) As OracleDataReader
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        
        Return(CMD.ExecuteReader)
               
    End Function

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
    
        'Codigo para Eliminar, Agregar o Modificar
        
    End Function
    
    Public Function Cerrar()
        CNN.Close()
    End Function
End Class

No se si este bien lo de CNN.Status = 1 y tampoce se como hacer lo de la funcion EjecutarSQL, como saber si se hicieron los cambios

Código:

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
    
        'Codigo para Eliminar, Agregar o Modificar
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        'Pero como saber si se hicieron los cambios        
        
    End Function

Bueno si alguien sabe y me puede orientar un poco se lo agradeceria demasiado, Gracias Adios

...

Public Function EjecutarSQL(CadenaSQL As String) As Boolean

'Codigo para Eliminar, Agregar o Modificar
Try

CMD.Connection = CNN
CMD.commandType = commandType.Text
CMD.CommandText = CadenaSQL
CMD.ExecuteNonQuery
Return(True) 'Si se ejecuta el comando regresa True

Catch ex as exeption

Return (False) 'Si hubo un error regresa False

End Try

End Function