connect-strings.ascx

This is a book about vb.you could learn this from this book

<%@Control Language="VB"%>

<script language="VB" runat="server">

	'*****************************************************
	'  Edit the connection strings to suit your database
	'*****************************************************

	Public ReadOnly Property OLEDBConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksOleDb")
	  End Get
	End Property

	Public ReadOnly Property SQLConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksSql")
	  End Get
	End Property

	Public ReadOnly Property JetConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksJet") _
			   & Request.PhysicalApplicationPath _
			   & "databases\WroxBooks.mdb"
	  End Get
	End Property

</script>