VB 2010 Express. Ошибки в работе с SQL Express

Private Sub Проверить_соединение(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCheck.Click
        Me.Cursor = Cursors.WaitCursor
        Dim connectionString As String
        connectionString = "Server=(local)\SQLEXPRESS;DataBase=;Integrated Security=SSPI"

        Try
            Dim connection As New SqlConnection(connectionString)
            connection.Open()
            connection.Close()
        Catch ex As Exception
            MsgBox("SQL Server не существует, или доступ запрещён", vbExclamation)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try

        connectionString = "Server=(local)\SQLEXPRESS;DataBase=DKP;Integrated Security=SSPI"

        Try
            Dim connection = New SqlConnection(connectionString)
            connection.Open()
            connection.Close()
            MsgBox("Проверка соединения выполнена.", vbInformation)
        Catch ex As Exception
            MsgBox("Невозможно открыть базу данных " & Chr(34) & tBD.Text & Chr(34), vbExclamation)
        End Try
        Me.Cursor = Cursors.Default
    End Sub

Private Sub СоздатьБД()
        Dim connectionString As String
        Dim sqlStatement As String = _
            "IF EXISTS (" & _
            "SELECT * " & _
            "FROM master..sysdatabases " & _
            "WHERE Name = 'DKP')" & vbCrLf & _
            "DROP DATABASE DKP" & vbCrLf & _
            "CREATE DATABASE DKP"

        connectionString = "Server=(local)\SQLEXPRESS;DataBase=;Integrated Security=SSPI"

        'ПРОВЕРКА SQL
        Try
            Dim connection As New SqlConnection(connectionString)
            connection.Open()
        Catch ex As Exception
            MsgBox("SQL Server не существует, или доступ запрещён", vbExclamation)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try

        'СОЗДАНИЕ БД
        Try
            Dim connection1 As New SqlConnection(connectionString)
            Dim cmd As New SqlCommand(sqlStatement, connection1)
            connection1.Open()
            cmd.ExecuteNonQuery()
            connection1.Close()
        Catch ex As Exception
            MsgBox("Невозможно создать базу данных " & Chr(34) & tBD.Text & Chr(34), vbExclamation)
            Me.Cursor = Cursors.Default
        End Try

        'СОЗДАНИЕ ТАБЛИЦ
        Dim strSQL As String
        connectionString = "Server=(local)\SQLEXPRESS;DataBase=DKP;Integrated Security=SSPI"

        Try
            Dim connection As New SqlConnection(connectionString)
            connection.Open()

            strSQL = ПараметрыТаблицы("Base")
            Dim cmd As New SqlCommand(strSQL, connection)
            cmd.ExecuteNonQuery()

            strSQL = ПараметрыТаблицы("General")
            cmd = New SqlCommand(strSQL, connection)
            cmd.ExecuteNonQuery()

            strSQL = ПараметрыТаблицы("FindAuto")
            cmd = New SqlCommand(strSQL, connection)
            cmd.ExecuteNonQuery()

            strSQL = ПараметрыТаблицы("ExcludeAuto")
            cmd = New SqlCommand(strSQL, connection)
            cmd.ExecuteNonQuery()

            strSQL = ПараметрыТаблицы("Connect")
            cmd = New SqlCommand(strSQL, connection)
            cmd.ExecuteNonQuery()

            connection.Close()

            MsgBox("База данных успешно создана/очищена.", vbInformation)
        Catch ex As Exception
            MsgBox("Невозможно открыть базу данных " & Chr(34) & tBD.Text & Chr(34), vbExclamation)
        End Try
    End Sub