Imports System.Data.SqlClient
Imports System.Data

Public Module MSSqlConnection

    Public ds As New DataSet()
    Public con As SqlConnection = getcon()
    Public da As SqlDataAdapter
    Public dr As SqlDataReader
    Public cmd As SqlCommand
    Public sql, strUserId As String
    Public cmdBuilder As SqlCommandBuilder
    Public strLoginName As String

    ' ************************** Get the Sql Server Connection **********************************************
    Private Function getcon() As SqlClient.SqlConnection
        Dim strcon As String = ConfigurationSettings.AppSettings.Item("ConnectionString")
        con = New SqlClient.SqlConnection(strcon)
        Return con
    End Function

    Public Property getusername() As String
        Get
            Return strLoginName
        End Get
        Set(ByVal Value As String)
            strLoginName = Value
        End Set
    End Property
End Module