Public Class ClassConst
    Private Shared pConnectStr As String = ""
    Private Shared wConnectStr As String = ""
    Private Shared bConnectStr As String = ""
    Public Shared ReadOnly Property ConnectStr() As String
        Get
            If pConnectStr.Length = 0 Then
                'DB接続文字列をWeb.configから取得
                pConnectStr = "Provider=MSDAORA.1;Password=study;User ID=study;Data Source=OFORM;Persist Security Info=True"
            End If
            Return pConnectStr
        End Get
    End Property

End Class