Insert ข้อมูลแล้วมันไม่ลงฐานข้อมูลน่ะค่ะ (ใช้ ASP.NET ติดตอกับฐานข้อมูล SQL Server2005 )

<%@ Import Namespace="System.Data"%> 
<%@ Import Namespace="System.Data.SqlClient"%> 
<%@ Page Language="VB" %> 
<script runat="server"> 
    
    Dim objConn As New SqlConnection
    Dim objCmd As New SqlCommand
    Dim strConnString, strSQL As String


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
       
        strConnString = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Project\web site\App_Data\Activity.mdf;Integrated Security=True;Max Pool Size=400;Connect Timeout=600;User Instance=True"
        objConn = New SqlConnection(strConnString)
        objConn.Open()


        If objConn.State = ConnectionState.Open Then
       
            Me.lblText.Text = "SQL Server Connected"
       
        Else
         
            Me.lblText.Text = "SQL Server Connect Failed"
       
        End If
        

    End Sub
  
      
    Protected Sub btn_submitok_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        strSQL = "INSERT INTO Student (StdID,StdFName,StdLName,Gender,BirthDay,Faculty,HouseNo,SubDistrict,District,Province,ZipCode,Phone,Email,Username,Password) VALUES ('" & Me.txt_stdid.Text & "','" & Me.txt_fname.Text & "', '" & Me.txt_lname.Text & "', '" & Me.txt_gender.Text & "', '" & Me.txt_birthday.Text & "', '" & Me.txt_faculty.Text & "', '" & Me.txt_houseno.Text & "', '" & Me.txt_subdis.Text & "','" & Me.txt_dis.Text & "','" & Me.txt_provin.Text & "','" & Me.txt_zip.Text & "','" & Me.txt_phone.Text & "','" & Me.txt_email.Text & "','" & Me.txt_user.Text & "','" & Me.txt_pass.Text & "')"

        objConn.Close()
        objConn = Nothing
    End Sub