Ayuda Con Esto Porfa

[juanvic19]

esto es mi codigo

Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página

If Not Page.IsPostBack Then
Dim conn As New SqlConnection("data source=CASA-DD94768C7C;" + _
"initial catalog=Northwind;user id=sa")
Dim ds As New DataSet
Dim da As New SqlDataAdapter _
("select CustomerID,CompanyName from Customers", conn)
da.Fill(ds, "Customers")
ddlCustomers.DataSource = ds
ddlCustomers.DataMember = "Customers"
ddlCustomers.DataTextField = "CompanyName"
ddlCustomers.DataValueField = "CustomerID"
ddlCustomers.DataBind()
ddlCustomers_SelectedIndexChanged(sender, e)
End If

End Sub

Private Sub dgOrders_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgOrders.SelectedIndexChanged



End Sub

Private Sub ddlCustomers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlCustomers.SelectedIndexChanged
Dim conn As New SqlConnection("data source=CASA-DD94768C7C;" + _
"initial catalog=Northwind;user id=sa")
Dim da As New SqlDataAdapter("select * from orders where " + _
"CustomerID='" + ddlCustomers.SelectedItem.Value + "'", conn)
Dim ds As New DataSet
da.Fill(ds, "Orders")
dgOrders.DataSource = ds
dgOrders.DataMember = "Orders"
dgOrders.DataBind()
End Sub
End Class

me sale esto error

Error de servidor en la aplicación '/ConsultadePedidos'.
--------------------------------------------------------------------------------

Error de inicio de sesión del usuario 'sa'. Motivo: no está asociado a una conexión de SQL Server de confianza.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.Data.SqlClient.SqlException: Error de inicio de sesión del usuario 'sa'. Motivo: no está asociado a una conexión de SQL Server de confianza.

Error de código fuente:


Línea 35: Dim da As New SqlDataAdapter _
Línea 36: ("select CustomerID,CompanyName from Customers", conn)
Línea 37: da.Fill(ds, "Customers")
Línea 38: ddlCustomers.DataSource = ds
Línea 39: ddlCustomers.DataMember = "Customers"

QUISERA SABER SI EL data source=CASA-DD94768C7C ESTA BIEN COMO LO PONGO PQ EN MI ADMINISTRADOR DE SERVICIOS SQL ESTA COMO SERVIDOR : CASA-DD94768C7C Y COMO SERVICIOS : SQL SERVER PERO AL QUERE VER ME SALE ESTE MENSAJE DE ERROR