Protected Sub btncheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncheck.Click
Dim strConn As String
strConn = "Data Source=HOME-EE71C2E7FA;Initial Catalog=actingrfunDB;User ID=sa"
Dim sqluser As String
sqluser = "Insert Into user (uid,uname,uaddress,utel,uemail) values ('" & txtcusid.Text & "','" & txtCustName.Text & "','" & txtadd.Text & "','" & txttel.Text & "','" & txtmail.Text & "')"
Dim Conn As New SqlConnection(strConn)
Conn.Open()
Dim com As New SqlCommand(sqluser, Conn)
Dim dr As SqlDataAdapter = com.ExecuteScalar
Response.Redirect("po.aspx")
End Sub