vb.net ขอความช่วยเหลือ+อยากทราบปัญหา เพิ่มข้อมูลลงฐานไม่ได้ ไม่รู้เป็นอะไร

Imports System.IO
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Data
Partial Class Customers
    Inherits System.Web.UI.Page

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString, strSQL As String



        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=POSDB;Max Pool Size=400;Connect Timeout=600;"

        strSQL = "INSERT INTO tblcustomer (CustomerCode, CustomerName, Address, Memo, Nick, Age, IDCard, Birthday, AdHome, AdOffice  Other, How, Dumnern, Aregon, Ownta, Tawparsri, Prb, Tumneam, YodBun, Otherss, Rum, Rubsud, ngensod, Rubngen, TudBun, Phuchao, jaonatee, tho, PidBun, INV, Fax, Lam, OwnBun, BunChee, NumBun, Kammasit, saka, Car, Run, jodta, MM, CarID, Parsri, NumSecurity, Numtung, CarCare, NumMike, Buy, MKT, Yodjud, Pon, Ngud, Ngudsud, ponrom, NgudRak, BK, Money) " & _
        " VALUES " & _
        " ('" & Me.txtCustomerCode.Text & "','" & Me.txtCustomerName.Text & "','" & Me.txtAddress.Text & "','" & Me.txtMemo.Text & "','" & Me.txtNick.Text & "','" & Me.txtAge.Text & "','" & Me.txtIdcard.Text & "','" & Me.txtBirthday.Text & "','" & Me.txtAdHome.Text & "','" & Me.txtAdOffice.Text & "','" & Me.txtOther.Text & "','" & Me.txtHow.Text & "','" & Me.txtDumnern.Text & "','" & Me.txtAregon.Text & "','" & Me.txtOwnta.Text & "','" & Me.txtTawparsri.Text & "','" & Me.txtPrb.Text & "','" & Me.txtTumneam.Text & "','" & Me.txtYodBun.Text & "','" & Me.txtOtherss.Text & "','" & Me.txtRum.Text & "','" & Me.txtRubsud.Text & "','" & Me.txtngensod.Text & "','" & Me.txtRubngen.Text & "','" & Me.txtTudBun.Text & "','" & Me.txtPhuchao.Text & "','" & Me.txtjaonatee.Text & "','" & Me.txttho.Text & "','" & Me.txtPidBun.Text & "','" & Me.txtINV.Text & "','" & Me.txtFax.Text & "','" & Me.txtLam.Text & "','" & Me.txtOwnBun.Text & "','" & Me.txtBunChee.Text & "','" & Me.txtNumBun.Text & "','" & Me.txtKammasit.Text & "','" & Me.txtsaka.Text & "','" & Me.txtCar.Text & "','" & Me.txtRun.Text & "','" & Me.txtjodta.Text & "','" & Me.txtMM.Text & "','" & Me.txtCarID.Text & "','" & Me.txtParsri.Text & "','" & Me.txtNumSecurity.Text & "','" & Me.txtNumtung.Text & "','" & Me.txtCarCare.Text & "','" & Me.txtNumMike.Text & "','" & Me.txtBuy.Text & "','" & Me.txtMKT.Text & "','" & Me.txtYodjud.Text & "','" & Me.txtPon.Text & "','" & Me.txtNgud.Text & "','" & Me.txtNgudsud.Text & "','" & Me.txtponrom.Text & "', " & _
        " '" & Me.txtNgudRak.Text & "','" & Me.txtBK.Text & "','" & Me.txtMoney.Text & "')"
        objConn.ConnectionString = strConnString
        objConn.Open()
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With



        Try
            objCmd.ExecuteNonQuery()
            Me.lblStatus.Text = "Record Inserted"
            Me.lblStatus.Visible = True
        Catch ex As Exception
            Me.lblStatus.Visible = True
            Me.lblStatus.Text = "Record can not insert Error (" & ex.Message & ")"
        End Try

        objConn.Close()
        objConn = Nothing
    End Sub


End Class