Crear Una BBDD Desde VB.NET

Hola a todos, tengo un formulario en el que solicito el nombre de una
base de datos que luego quiero crear en SQL Server. Lo hago a traves
del siguiente código:

Private Sub btnCrear_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnCrear.Click
Try
Dim cnxCrear As New SqlClient.SqlConnection("Server =
EPISTEME-SRV;" & _
"UID= sa; pwd= 123456; database= master")
Dim CadenaCrea As String
CadenaCrea = ("Create Database " & TexBBDD & " on primary (" &
_
"name= " & TexBBDD & "_data, filename=
'\EPISTEME-SRVArchivos de programaMicrosoft " & _
"SQL ServerMSSQLData" & TexBBDD & "_data.mdf', size =
100 mb, Maxsize = 200, filegrowth= 20)," & _
"log on (name = " & TexBBDD & "_datalog, filename =
'\EPISTEME-SRVArchivos de programaMicrosoft " & _
"SQL ServerMSSQLData" & TexBBDD & "_data.ldf', size =
100 mb, Maxsize = 200, filegrowth= 20)")
ExecuteSQLStmt(CadenaCrea, TexBBDD)
MsgBox("Se creó con exito " & TexBBDD,
MsgBoxStyle.Information, "" & TexBBDD & "")
Catch
MsgBox("Error intentando crear " & TexBBDD,
MsgBoxStyle.Critical, "ERROR")
End Try
End Sub

No hay manera de que funcione, siempre me devuelve el error "Error
intentando crear bbdd".
¿Alguien sabe por qué, y que podria hacer para conseguir que funcione?

Gracias