Imports System.Configuration
Public Class clsConnection
Public ConnString As String
Public Sub New()
ConnString = ConfigurationSettings.AppSettings("ConnectionString")
End Sub
Function SQL_DataSet(ByVal SQL As String) As DataSet
'......
End Function
End Class
Dim config as Configuration = ConfigurationManager.OpenExeConfiguration()
Dim connString as String = config.ConnectionStrings.ConnectionStrings("AppConnectionString").ConnectionString