Update and Select Record

Question

Can you help me !rolve myu2019s problem that I used ?
                1: clicking View Child button, how the system only can display the 1-1 employee information ( Employee No 1à only show his/her child not show all Employeeu2019s child in the company).
Becase ,I used
                  Private Sub CreateForm(ByRef EmplID As String).
                  oForm.DataSources.DataTables.Item(0).ExecuteQuery("select EmpID,U_Child1,U_DateOB,U_Child2,U_DateOB2,U_Child3,U_DateOB3,U_Child4,U_DateOB4 from OHEM where EmpID=" + EmplID)
Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, _
             ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
                If ((pVal.ItemUID = "btnVC") And _
               (pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK)) Then
                    CreateForm(u201C1u201D)
                    OForm = SBO_Application.Forms.Item("frmGrid")
                    OForm.Visible = True
                End If
However,If I want to display childu2019s employee information next then it not display .Therefor,I used:
            Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, _
             ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If "60100" = pVal.FormType And pVal.BeforeAction = False Then
            Dim Emp As String
                 Emp = OForm.Items.Item("33")
                  If ((pVal.ItemUID = "btnVC") And _
               (pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK)) Then
                    CreateForm(Emp)
                    OForm = SBO_Application.Forms.Item("frmGrid")
                    OForm.Visible = True
                End If
Are you can help me resolvable this problem ?
URL=http://imageshack.usIMGhttp://img509.imageshack.us/img509/4238/selectandupdateev0.png[/IMG][/url]
URL=http://g.imageshack.us/img509/selectandupdateev0.png/1/IMGhttp://img509.imageshack.us/img509/selectandupdateev0.png/1/w1012.png[/IMG][/url]

Answer 1

Emp = OForm.Items.Item("33")
=>
Emp = OForm.Items.Item("33").Specific.String
By the way, actually it is unnecessary to open a new question, just update the original question. then follow wit it.
Kind Regards
-Yatsea