Sub AddEntry
Dim Query As String
Query = "INSERT INTO User VALUES (NULL, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
SQL1.ExecNonQuery2(Query, Array As String(rdbMr.Checked , rdbMrs.Checked, rdbMiss.Checked, rdbElecInsp.Checked, rdbSparky.Checked, _
rdbTech.Checked, rdbOther.Checked, txtFirstName.Text, txtMidName.Text, txtLastName.Text, txtPersEmail.Text, _
txtPerPh.Text, txtPerCell.Text, txtPerWork.Text, txtStreet.Text, txtCity.Text, txtSuburb.Text, txtRego.Text, txtEmpComp.Text, _
txtCompAddress.Text, txtEmpTown.Text, txtContact.Text,txtCompPhone.Text, txtCompEmail.Text, rdbNN.Checked, rdbCR.Checked, txtSiteSf.Text))
ToastMessageShow("Entry added", False) ' confirmation for the user
End Sub