コンボボックスのコード保持について

Public MustInherit Class CmdEditor

    Protected ComboBoxEditor As New Editors.ComboBoxEditor
    Protected myDataset As New DataSet


    Protected Overridable Function getData(ByVal Edi As Editors.ComboBoxEditor) As Editors.ComboBoxEditor

        Dim i As Integer
        For i = 0 To myDataset.Tables(0).Rows.Count - 1
            With Edi.Items

                .Add(New GetName(myDataset.Tables(0).Rows(i)("EMPLOYEE_CO"), _
                                    myDataset.Tables(0).Rows(i)("EMPLOYEE_NA")))

            End With
        Next

        Return Edi

    End Function

    Class GetName

        Public employeeCode$, employeeName$

        Sub New(ByVal code$, ByVal name$)
            Me.employeeCode = code
            Me.employeeName = name
        End Sub

        Public Overrides Function ToString() As String
            Return employeeName
        End Function

    End Class
End Class