Code Connection Access

Private _StrConnAccess As String
    Private cConn As New clsConnection

    Public ReadOnly Property ConnectionStringAccess() As String
        Get
            Dim _StrConnAccess As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Excel1.mdb;"
            Return _StrConnAccess
        End Get
    End Property
    Private _OrclConnectionAccess As OleDbConnection
    Public ReadOnly Property OrclConnectionAccess() As OleDbConnection
        Get
            OrclConnectionAccess = New OleDbConnection(ConnectionStringAccess)
            Return OrclConnectionAccess
        End Get
    End Property

    Public connAcc As OleDbConnection
    Public Function ConnectionAccess_Open() As Boolean
        Dim Y As Boolean = True
        If connAcc Is Nothing Then
            connAcc = New OleDbConnection(ConnectionStringAccess)
        End If
        If connAcc.State = ConnectionState.Closed Then
            Try
                connAcc.Open()
            Catch ex As Exception
                MsgBox("Cannot open database Access connection")
                Y = False
            End Try
        End If
        Return Y
    End Function

    Public Sub ConnectionAccess_Close()
        If connAcc IsNot Nothing Then
            If connAcc.State <> ConnectionState.Closed Then
                Try
                    connAcc.Close()
                    connAcc.Dispose()
                Catch ex As Exception

                End Try
            End If
        End If
        connAcc = Nothing
    End Sub