Aidez moi erreur connection a sql server2005!

salut,
je travaille avec sql server 2005 et vb.net, j ai essayé de me connecter au serveur locale pour ceer ma base par le code ,mais je n arrive pas !! voici mon code:


#Region "Variables" '"Server=PORTABLEKHANY\SQLEXPRESS;" & _
Const Cnx As String = _
"Server=SQL Server;" & _
"DataBase=;" & _
"Integrated Security=SSPI"
#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If creationBase() Then
MessageBox.Show("base bien ceer")
Else
MessageBox.Show("base non ceer!! reponse=" & Reponse)
End If
End Sub

Public Function creationBase() As Boolean

' Booléen retourné par la fonction
Dim creation As Boolean

Dim strQuery1 As String = "IF EXISTS (SELECT * FROM master..sysdatabases" & _
" WHERE Name ='" & " BaseAdil" & "')" & _
" DROP DATABASE " & " BaseAdil" & " CREATE DATABASE " & " BaseAdil"
Dim strQuery2 As String = "USE " & " BaseAdil" & _
" IF EXISTS ( SELECT * FROM " & " BaseAdil" & _
".dbo.sysobjects WHERE Name = 'RdvAgenda' AND TYPE = 'u')" & _
" BEGIN DROP TABLE " & " BaseAdil" & _
".dbo.RdvAgenda END CREATE TABLE RdvAgenda(" & _
"IdJour Int NULL," & _
"DateEv DateTime NULL," & _
"HDebut DateTime NULL," & _
"HFin DateTime NULL," & _
"Titre nchar(80) NULL," & _
"Categorie Int NULL," & _
"Commentaire nvarchar(max) NULL)"
Dim strQuery3 As String = "USE " & " BaseAdil" & _
" IF EXISTS ( SELECT * FROM " & " BaseAdil" & _
".dbo.sysobjects WHERE Name = 'CategAgenda' AND TYPE = 'u')" & _
" BEGIN DROP TABLE " & " BaseAdil" & _
".dbo.CategAgenda END CREATE TABLE CategAgenda(" & _
"IdCateg Int NULL," & _
"NomCateg nchar(40) NULL," & _
"CouleurCateg nchar(15) NULL)"
'--- Création de la base de données
Try
'--- Création de la connexion
Dim SqlCnx As New SqlConnection(Cnx)
'--- Création des commandes pour exécuter les demandes
Dim cmd1 As New SqlCommand(strQuery1, SqlCnx)
Dim cmd2 As New SqlCommand(strQuery2, SqlCnx)


Dim cmd3 As New SqlCommand(strQuery3, SqlCnx)
'--- Ouverture de la connexion
SqlCnx.Open()
'--- Exécution de la demande de création pour la base de données
cmd1.ExecuteNonQuery()
'--- Exécution de la demande de création pour la table RDV
cmd2.ExecuteNonQuery()
'--- Exécution de la demande de création pour la table catégorie
cmd3.ExecuteNonQuery()
'--- Fermeture de la connexion
SqlCnx.Close()
creation = True
Catch sqlExc As SqlException
Reponse = sqlExc.ToString
creation = False
End Try
Return creation

End Function

voici l'erreur signalé:
System.Data.SqlClient.SqlException: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)

est ce qlq un peut m'aider?