' ------------------------------------------------------------
' Code generated automatically by Code Architects' VB Migration Partner
' ------------------------------------------------------------

Option Strict Off      ' Code migrated from VB6 has Option Strict disabled by default

<System.Runtime.InteropServices.ProgID("FMStocks_DB.Version")> _ 
<Transaction(TransactionOption.Disabled)> _
Public Class Version
	Inherits ServicedComponent

	#Region "Constructor"
	
	'A public default constructor
	Public Sub New()
		' Add initialization code here
	End Sub
	
	#End Region
	
	#Region "Static constructor"
	
	' This static constructor ensures that the VB6 support library be initialized before using current class.
	Shared Sub New()
		EnsureVB6LibraryInitialization()
	End Sub
	
	#End Region
	
	Private Const m_modName As String = "FMStocks_DB.Version"
	
	Public Function ConnectionString() As String
		On Error GoTo errorHandler 
		Dim dbh As DBHelper = CreateObject6("FMStocks_db.DBHelper")
		ConnectionString = dbh.GetConnectionString()
		dbh = Nothing
		Exit Function
		
errorHandler:
		RaiseError(m_modName, "ConnectionString()")
	End Function

	Public Function Version() As String
		Return GetVersionNumber()
	End Function

	Public Function ComputerName() As String
		Return GetComputerName()
	End Function

End Class
