Dim connectionString As New SqlConnection("server=.;uid=sa;pwd='';database=")
    Private Sub CreateDatabase(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim com As New SqlCommand("create database " + TextBox1.Text, connectionString)
            cons.Open()
            com.ExecuteNonQuery()
            Label1.Text = "Database Created"
            cons.Close()
        Catch ex As Exception
            Label1.Text = TextBox1.Text + " Database Already Exists"
        End Try
        
    End Sub

    Private Sub DropDatabase(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim com As New SqlCommand("drop database " + TextBox1.Text, connectionString)
            cons.Open()
            com.ExecuteNonQuery()
            Label1.Text = "Database Dropped"
            cons.Close()
        Catch ex As Exception
            Label1.Text = TextBox1.Text + " Database Does Not Exists"
        End Try
    End Sub