Udføre 2 sql statement ved tryk på en knap

Jeg har 2 næsten ens procedurer som bliver udført ved click på hver sin knap, hvordan får jeg udført begge procedurer ved blot at trykke på den ene knap, mit problem er at putte et nyt sql stetement ind i den eksisterende sqlstreng.


Sub btnFangstområder_Click(sender As Object, e As EventArgs)

Dim strConnection as String = "user id=sa;password=;"
    strConnection += "database=Fisk;server=TEST;"
    strConnection += "Connect Timeout=30"
Dim myConn As New SqlConnection(strConnection)


Dim strSQL As String = "SP_sild_pr_område " & drpData.SelectedItem.Value


        Dim objCommand As New SqlCommand(strSQL, myConn)

        myConn.Open()

        dgFangstområder.DataSource = objCommand.ExecuteReader()
        dgFangstområder.DataBind()


        myConn.Close()

Sub btnSquare_Click(sender As Object, e As EventArgs)
Dim strConnection as String = "user id=sa;password=;"
    strConnection += "database=Fisk;server=TEST;"
    strConnection += "Connect Timeout=30"






        Dim strSQL As String = "SP_square_pr_togt " & drpData.SelectedItem.Value

        Dim myConn As New SqlConnection(strConnection)
        Dim objCommand As New SqlCommand(strSQL, myConn)

        myConn.Open()

        dgSquare.DataSource = objCommand.ExecuteReader()
        dgSquare.DataBind()

        myConn.Close()

End Sub

hilsen
cuac