Create Proc CrDb
as
create Database Test7
Create Table Welcome12
(id int,
StName varchar(20))

Create Proc DropDb
Drop Database Test7

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim sqlcon As SqlConnection
    Dim sqlcmd As SqlCommand
    Dim Sqlado As SqlDataAdapter
    Dim result As Boolean
    Protected Sub bt1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt1.Click
        result = Execute("Exec Crdb")
    End Sub
    Public Sub New()
        sqlcon = New SqlConnection
        sqlcon.ConnectionString = "data source=(local);Initial Catalog=Test;Integrated Security=true;"
        sqlcon.Open()
    End Sub
    Public Function Execute(ByVal strq As String) As Boolean
        Dim sqlcmd As New SqlCommand(strq, sqlcon)
        sqlcmd.ExecuteNonQuery()
    End Function
End Class

< html xmlns="http://www.w3.org/1999/xhtml" >
< head runat="server">
    < title>Untitled Page< /title>
< /head>
< body>
    < form id="form1" runat="server">
    < asp:Button ID="bt1" runat ="server" Text ="Click" />
    < /form>
< /body>
< /html>