Dim importantmessage As String
importantmessage = MsgBox("Filling Up Complete, Are you sure you want to save this?", vbYesNo)
If importantmessage = vbYes Then
cmdInsert.CommandText = "INSERT INTO personinfo (SurName,FirstName,MiddleName,Present_CurrentAddress,ProvincialAddress,Noofchildren,Height,weight,birthdate,age,birtrhplace,gender,civilstatus,educationalattain,schoolname,course,yearsofstudy,collegestatus,trainingschoolname,positiontrained,yearstrained,coursetrained,detachment,Region,effdate,workstatus,empnumber,positionemployed,yearsofemployed,sssnumber,tinnumber,nbi,nbidate,pnp,pnpdate,priorexp,gdexp,guardposition,uniformdate,millitary,LOS,previousemp,licno,licdate,licexp,dateofemp,badgeno,neurocenter,neuroresult,neurodate,drugcenter,marijuana,shabu,drugresult,histories) VALUES (@1,@2,@3,@4,@5,@6,@7,@8,@9,@10,@11,@12,@13,@14,@15,@16,@17,@18,@19,@20,@21,@22,@23,@24,@25,@26,@27,@28,@29,@30,@31,@32,@33,@34,@35,@36,@37,@38,@39,@40,@41,@42,@43,@44,@45,@46,@47,@48,@49,@50,@51,@52,@53,@54,@55);"
cmd.Parameters.AddWithValue("@1", txtsurname.Text)
cmd.Parameters.AddWithValue("@2", txtfirstname.Text)
cmd.Parameters.AddWithValue("@3", txtmiddlename.Text)
cmd.Parameters.AddWithValue("@4", txtaddress.Text)
cmd.Parameters.AddWithValue("@5", txtprovince.Text)
cmd.Parameters.AddWithValue("@6", txtchildren.Text)
cmd.Parameters.AddWithValue("@7", txtheight.Text)
cmd.Parameters.AddWithValue("@8", txtweight.Text)
cmd.Parameters.AddWithValue("@9", datepicker1.Text)
cmd.Parameters.AddWithValue("@10", txtage.Text)
cmd.Parameters.AddWithValue("@11", txtbplace.Text)
cmd.Parameters.AddWithValue("@12", cmbgender.Text)
cmd.Parameters.AddWithValue("@13", cmbcivil.Text)
cmd.Parameters.AddWithValue("@14", ComboBox4.Text)
cmd.Parameters.AddWithValue("@15", TextBox11.Text)
cmd.Parameters.AddWithValue("@16", TextBox10.Text)
cmd.Parameters.AddWithValue("@17", TextBox9.Text)
cmd.Parameters.AddWithValue("@18", TextBox8.Text)
cmd.Parameters.AddWithValue("@19", TextBox6.Text)
cmd.Parameters.AddWithValue("@20", ComboBox3.Text)
cmd.Parameters.AddWithValue("@21", TextBox7.Text)
cmd.Parameters.AddWithValue("@22", TextBox1.Text)
cmd.Parameters.AddWithValue("@23", ComboBox2.Text)
cmd.Parameters.AddWithValue("@24", ComboBox7.Text)
cmd.Parameters.AddWithValue("@25", MaskedTextBox3.Text)
cmd.Parameters.AddWithValue("@26", ComboBox1.Text)
cmd.Parameters.AddWithValue("@27", TextBox29.Text)
cmd.Parameters.AddWithValue("@28", TextBox30.Text)
cmd.Parameters.AddWithValue("@29", TextBox31.Text)
cmd.Parameters.AddWithValue("@30", TextBox5.Text)
cmd.Parameters.AddWithValue("@31", TextBox4.Text)
cmd.Parameters.AddWithValue("@32", TextBox3.Text)
cmd.Parameters.AddWithValue("@33", MaskedTextBox4.Text)
cmd.Parameters.AddWithValue("@34", TextBox2.Text)
cmd.Parameters.AddWithValue("@35", MaskedTextBox5.Text)
cmd.Parameters.AddWithValue("@36", TextBox24.Text)
cmd.Parameters.AddWithValue("@37", TextBox25.Text)
cmd.Parameters.AddWithValue("@38", ComboBox11.Text)
cmd.Parameters.AddWithValue("@39", MaskedTextBox6.Text)
cmd.Parameters.AddWithValue("@40", TextBox26.Text)
cmd.Parameters.AddWithValue("@41", TextBox28.Text)
cmd.Parameters.AddWithValue("@42", TextBox27.Text)
cmd.Parameters.AddWithValue("@43", TextBox32.Text)
cmd.Parameters.AddWithValue("@44", MaskedTextBox2.Text)
cmd.Parameters.AddWithValue("@45", MaskedTextBox1.Text)
cmd.Parameters.AddWithValue("@46", MaskedTextBox7.Text)
cmd.Parameters.AddWithValue("@47", TextBox12.Text)
cmd.Parameters.AddWithValue("@48", TextBox14.Text)
cmd.Parameters.AddWithValue("@49", ComboBox6.Text)
cmd.Parameters.AddWithValue("@50", MaskedTextBox8.Text)
cmd.Parameters.AddWithValue("@51", TextBox15.Text)
cmd.Parameters.AddWithValue("@52", ComboBox5.Text)
cmd.Parameters.AddWithValue("@53", ComboBox12.Text)
cmd.Parameters.AddWithValue("@54", MaskedTextBox9.Text)
cmd.Parameters.AddWithValue("@55", RichTextBox1.Text)
cmdInsert.CommandType = CommandType.Text
cmdInsert.Connection = cnnOLEDB
cmdInsert.ExecuteNonQuery()
whats the error in this?