Sub UpdatetblRegTimeConcepts(ByVal ConceptID As Integer,
                                 ByVal Description As String,
                                 ByVal RegID As Integer,
                                 ByVal PeriodID As Integer,
                                 ByVal JobCodeSecurity As Integer)
        DataAccessIris.ExecCommand("Insert into tblRegTimeConcepts (ConceptID,Description," +
                                 "RegID,PeriodID,JobCodeSecurity) " +
                                 " Values " +
                                 "(" + ConceptID.ToString + "," +
                                 "'" + Description + "'," +
                                 RegID.ToString + "," +
                                 PeriodID.ToString + "," +
                                 JobCodeSecurity.ToString + ")")
    End Sub