Imports System.Data.SqlClient Module Common Public Function ConnectDB() As SqlConnection Dim objConn As New SqlConnection(ConfigurationSettings.AppSettings("objConn.ConnectionString")) objConn.Open() Return objConn End Function End Module