Insert Data From SQL (ASP.net / VB.net)

Imports System.Data
Imports System.Data.SqlClient
Public Class welcome
    Inherits System.Web.UI.Page
    Dim cmd As SqlCommand
    Dim cn As New SqlConnection("Data Source=SARIB-ALI\SQLEXPRESS;Initial Catalog=infra;Integrated Security=True")

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cn.Close()
        cn.Open()
        cmd = New SqlCommand("insert into table_1 values(@p,@pr)", cn)
        cmd.Parameters.AddWithValue("@p",TextBox1.Text)
        cmd.Parameters.AddWithValue("@pr", TextBox2.Text)
        cmd.ExecuteNonQuery()
        MsgBox("Added Success")
    End Sub
End Class