In visual basic:

codice:
Public Module globalValues


    Private _ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + HttpContext.Current.Server.MapPath("~/App_Data/campi.mdb")


    Public Property ConnString() As String
        Get
            Return _ConnString
        End Get
        Set(ByVal value As String)
            _ConnString = value
        End Set
    End Property


End Module

dal code-behind di una qualsiasi pagina:

codice:
Dim a As String = globalValues.ConnString

PS: di solito la ConnectionString si scolpisce nel Web.Config come chiave.