How can i create connection to database once only in Windows Application using VB.net.

See more:

ASP.NET

Hi
I have written 1 module & 2 Classes . I have written connection to database again & again. I want that i should write Database Connection only once . How i should do.
In the below case i have called SetApplication in both the classes which i don't want . I am using Windows Application using VB.net

Module subMain
    Public Sub Main()

        Dim clsa As clsa
        clsa = clsa

        Dim clsb As clsb
        clsb = New clsb

        ' Starting the Application
        System.Windows.Forms.Application.Run()

    End Sub
End Module


Friend Class ClsA
    Private WithEvents SBO_Application As SAPbouiCOM.Application
     Dim SboGuiApi = New SAPbouiCOM.SboGuiApi
    Dim oForm As SAPbouiCOM.Form
    
    Private Sub SetApplication()
        
        Try
            Dim sConnectionString As String
            sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
            SboGuiApi.Connect(sConnectionString)
            SBO_Application = SboGuiApi.GetApplication()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Public Sub New()
        MyBase.New()
        Try
            SetApplication()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Friend Class ClsB
    Private WithEvents SBO_Application As SAPbouiCOM.Application
    Dim SboGuiApi = New SAPbouiCOM.SboGuiApi
    Dim oForm As SAPbouiCOM.Form
    Private Sub SetApplication()
        
        Try
            Dim sConnectionString As String
            sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
            SboGuiApi.Connect(sConnectionString)
            SBO_Application = SboGuiApi.GetApplication()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Public Sub New()
        MyBase.New()
        Try
            SetApplication()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Thanks