Error In Connecting To SQL Server Express

Hello,

I'm a newbie who is trying to create a connection to the server in my website application and I keep getting the following error:  An error has occurred while establishing a connection to the server.  When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server).  I enabled TCP/IP and Pipe in the configuration and restarted the engine and server but I still get this error and it's stressing me out.  Below is the code for the app.  Any help would be greatly appreciated. Thanks

 

Imports System.Data

Imports System.Data.SqlClient

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

' Create the database Connection

Dim conn As New System.Data.SqlClient.SqlConnection( _

"Server=Main;" + _

"Integrated Security=True;" + _

"Database=ShoppingCartData;" + _

"AttachDBFilename=" + _

"C:DOCUMENTS AND SETTINGSTONYAMY DOCUMENTSVISUAL STUDIO 2005WEBSITESADOAPP_DATAADO.MDF")

 

' Create the Data Adapter with the required SELECT statement

Dim Adapt As New System.Data.SqlClient.SqlDataAdapter("SELECT * FROM Products", conn)

' Create the dataset with the required information

Dim dsADO As New System.Data.DataSet()

Adapt.Fill(dsADO)

Dim DR As DataRow()

' Define the Table

Dim ProdTbl As New Table()

' Create content for the Web Page

For Each DR In dsADO.Tables(0).Rows

'Create a new table row.

Dim ProdRow As New TableRow()

'Create a cell within the row.

Dim ProdCell As New TableCell()

'Define content for the Cell

Dim ThisLink As New HyperLink()

ThisLink.NavigateUrl = "Products.aspx?ProdID=" + _

DR("ProductID").ToString()

ThisLink.Text = DR("ProductNme").ToString()

ThisLink.ID = DR("ProductID").ToString()

'Add the content to the cell and the cell to the row. Place the row in the table

ProdCell.Controls.Add(ThisLink)

ProdRow.Controls.Add(ProdCell)

ProdTbl.Controls.Add(ProdRow)

Next

'Add the table to the Place holder.

phProducts.Controls.Add(ProdTbl)

End Sub

End Class