Private _ConnectString As String
Private _DbServer As String
Private _DbDriver As String
Private _DbDatabase As String
Private _DbUser As String
Private _DbPass As String
Public DbError As String

' ******************************************************
' DB接続プロパティ
' ******************************************************
Public Property DbServer() As String
	Get
		Return _DbServer

	End Get
	Set(ByVal value As String)
		_DbServer = value
	End Set
End Property
Public Property DbDriver() As String
	Get
		Return _DbDriver

	End Get
	Set(ByVal value As String)
		_DbDriver = value
	End Set
End Property
Public Property DbDatabase() As String
	Get
		Return _DbDatabase

	End Get
	Set(ByVal value As String)
		_DbDatabase = value
	End Set
End Property
Public Property DbUser() As String
	Get
		Return _DbUser

	End Get
	Set(ByVal value As String)
		_DbUser = value
	End Set
End Property
Public Property DbPassword() As String
	Get
		Return _DbPass

	End Get
	Set(ByVal value As String)
		_DbPass = value
	End Set
End Property