Crear una base de datos SQL Server desde Visual Basic

Aquí os dejo un pequeño código cuya finalidad es simple: crear desde cualquier punto de vuestro código VB.NET una database SQL Server. Un detalle: siempre debeis crear las bases de datos en master. De igual forma podreis crear Tablas, etc dentro de la Base de Datos que especifiqueis. Espero os sea de utilidad.

Dim cnn As New SqlConnection( "Server=vuestro_servidor;database=master; integrated security=yes")

Dim s As String = "CREATE DATABASE " & nombre_base_datos

Dim cmd As New SqlCommand(s, cnn)

Try

  cnn.Open()   ' Abrimos la conexión y ejecutamos el comando
  cmd.ExecuteNonQuery()

  Catch ex As Exception

  MessageBox.Show(ex.Message, "Error al crear la DB", MessageBoxButtons.OK,MessageBoxIcon.Error)

  Finally

  If cnn.State = ConnectionState.Open Then

    cnn.Close()   'Cerramos la conexión

  End If

End Try