[sql server 2005]connection au serveur

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

Configuration: Windows XP
Internet Explorer 6.0