Private Sub InitForm()
        Dim sql As String

        sql = "SELECT statusnum, statusText from status where StatusType = 'Emp'"
Me.AddLookupField("statusnum", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "status").TableName)

sql = "SELECT userid, username from users where isnull(isdeleted,0)=0 order by username"
        Me.AddLookupField("userid", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "user").TableName)

sql = "select campusid, dispname, WODate, CompletedOn from mmlistCampus() order by dispname"
Me.AddLookupField("campusid", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "campus").TableName)

        sql = "Select depid, depname, companyid from deps order by depname"
        Me.AddLookupField("depid", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "dep").TableName)

sql = "select employeeid,isNull(EmpCode,'') + ' - ' + descrip [EmployeeName], JoinDate, LeaveDate from hrplistallemp() where onrolls=1 order by EmpCode"
Me.AddLookupField("ReportsToID", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "rep").TableName)

        sql = "select vendorid, partyname from hrplistparty() order by partyname"
        Me.AddLookupField("ContractorID", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "party").TableName)

        sql = "select shiftid, shift from shift order by shift"
        Me.AddLookupField("shiftid", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "shift").TableName)

        Dim vlist As New clsValueList
        vlist.Add(False, "Disabled")
        vlist.Add(True, "Enabled")
        Me.ValueLists.Add("EnableList", vlist)
        Me.AddLookupField("ImprestEnabled", "EnableList")
        Me.AddLookupField("PunchEnabled", "EnableList")

        Dim vlst As New clsValueList
        vlst.Add("F", "F - Father")
        vlst.Add("S", "S - Husband")
        Me.ValueLists.Add("Relationship", vlst)
        Me.AddLookupField("Relationship", "Relationship")

        Dim vlst1 As New clsValueList
        vlst1.Add(False, "Salary")
        vlst1.Add(True, "Wages")
        Me.ValueLists.Add("haswage", vlst1)
        Me.AddLookupField("haswage", "haswage")

        Dim vlst2 As New clsValueList
        vlst2.Add(False, "Staff")
        vlst2.Add(True, "Worker")
        Me.ValueLists.Add("isworker", vlst2)
        Me.AddLookupField("isworker", "isworker")

        sql = "SELECT Divisionid, DivisionName  from Division"
        Me.AddLookupField("Divisionid", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "Division").TableName)

        sql = myFuncs.CodeWordSQL("emp", "leavereason", "")
Me.AddLookupField("LeftReasonCode", myUtils.AddTable(Me.dsCombo, myContext.Provider.objSQLHelper.ExecuteDataset(CommandType.Text, sql), "emp").TableName)


    End Sub