Dim AC As New ServiceReference1.AttributeCollection
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_name", fullname))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_address", Address))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_annualvacation", Vac_Not_Used))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_dateofbirth", BirthDate))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_gender1", gender))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_maritalstatus", Status))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_nationality", Nat))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_nssfno", CNSSNBR))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_phoneno", Phone1))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_religion", Reg))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_salery", MBasic_Sal_LC))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_startdate", StDate))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_branch", BR.Id))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_department", DE.Id))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_jobtitle", JT.Id))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_section", SE.Id))
AC.Add(New KeyValuePair(Of String, Object)("mbmhr_employeenbr", EmpNbr))
Try
S.Attributes = AC
Dim OC As New ServiceReference1.OrganizationServiceClient
AddEmployee = OC.Create(S)
OC.Update(S)
Catch ex As Exception
End Try
