' 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 TrySub 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 TryEnd Sub