Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim command As New SqlClient.SqlCommand("сюда вставляем скрипт на создание БД - обычная строка - так что имя БД можно вставлять из текстового поля (от пользователя)", SqlConnection1)
        Try
            SqlConnection1.Open()
            command.ExecuteNonQuery()
            MsgBox("New Base created", MsgBoxStyle.Information, "Yep...")
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Ooops...")
        Finally
            If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
        End Try

End Sub