Error al crear una Base de Datos desde VB

Question

Hola de nuevo, estoy intentando crear una base de datos desde VB.
En el _Load del formulario tengo lo siguiente:

    Public Const StrdbRecreativos As String = "Data Source=.\SQLEXPRESS;" & _
                        "AttachDbFilename=" & RutaBBDD & BDRecreativos & ".mdf;" & _
                        "Integrated Security=True;User Instance=True"

    Public Const RutaBBDD As String = "C:\VB2010\DB\"
    Public Const BDRecreativos = "dbRecreativos"
__________________________________________________________________________________
    Private Sub FrmDvInicio_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        If ExisteBBDD(BDRecreativos) = False Then
            'MessageBox.Show("No existe la base de datos", "ATENCION")
            'Application.Exit()
            Dim result As DialogResult
            result = MessageBox.Show("No existe la Base de Datos, Desea crearla?", "¡¡ATENCION!!", _
                                     MessageBoxButtons.OKCancel, _
                                     MessageBoxIcon.Information, _
                                     MessageBoxDefaultButton.Button2) ', MessageBoxOptions.RightAlign )
            If result = DialogResult.OK Then
                Try
                    'Creamos el comando
                    Using cmd As New SqlCommand()
                        'Indicamos la consulta Sql que vamos a ejecutar
                        cmd.CommandText = "CREATE DATABASE " & BDRecreativos
                        ExecutarAccion(BDRecreativos, cmd)
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If
        End If
    End Sub

_____________________________________________________________________________________________

    Public Function ExecutarAccion(ByVal BBDD As String, ByVal cmd As SqlCommand) As Integer
        sCadena = DeterminarConexionBBDD(BBDD)
        If (cmd Is Nothing) Then _
          Throw New ArgumentNullException()
        Try
            Using cnn As New SqlConnection(sCadena)
                cmd.Connection = cnn
                cnn.Open()
                Return cmd.ExecuteNonQuery()
                cnn.Close()
            End Using
        Catch ex As Exception
            Throw
        End Try
    End Function
_____________________________________________________________________________________________

    Public Function DeterminarConexionBBDD(ByRef BBDD As String) As String
        Dim sBBDD As String = UCase(BBDD)
        If sBBDD = "DBRECREATIVOS" Then
            sCadena = StrdbRecreativos
        End If
        Return sCadena
    End Function
_____________________________

pero me sale el siguiente error:

sin embargo busco la base de datos en el disco y no me aparece por ningún sitio