CreateDatabase - Creating a SQL Server database

' Create a SQL Server database with the specified name.
' If the second parameter is True and a DB with the same name is already 
' present,
' it is dropped before the new DB is created.
' Note: requires Imports System.Data.SqlClient
'
' Example:
'   Dim connString As String = "server=(local); user id=sa; password=; 
' Database=master;"
'   Try
'      CreateDatabase(connString, "MyTestDB", True)
'   Catch ex As Exception
'      MessageBox.Show(ex.Message)
'   End Try

Sub CreateDatabase(ByVal connString As String, ByVal dbName As String, _
    Optional ByVal dropExistent As Boolean = True)

    Dim cn As New SqlConnection(connString)
    Try
        ' the command for creating the DB
        Dim cmdCreate As New SqlCommand("CREATE DATABASE [" & dbName & "]", cn)
        cn.Open()
        If dropExistent Then
            ' drop the existent DB with the same name
            Dim cmdDrop As New SqlCommand _
                ("IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE " _
                & "name = N'" & dbName & "') DROP DATABASE [" & dbName & "]", _
                cn)
            cmdDrop.ExecuteNonQuery()
        End If
        ' create the DB
        cmdCreate.ExecuteNonQuery()
    Finally
        cn.Close()
    End Try
End Sub