como es más sencillo?DataSource de DataRow obtenido Getchildrows

Despues de una mañana he sido incapaz de simplificar este codigo, necesito
que un listbox se visualize el nombre de un contacto, y que su valor (value)
sea el cod_contacto.
para eso tengo que cargar ese listbox con el el datasource, DisplayMember,
ValueMember. pero el array de filas que me devuelve el GetChildRows no lleva
consigo (o eso creo) los nombres de las columanas, para que me permitan el
enlace mediante el DisplayMember y ValueMember.
y he montado todo esto para que me funcion, pero no me he quedado nada
agusto.
¿alguien sabe de que manera se puede hacer?
he probado de todo, incluso a intentar asignar directamente
el array de filas al datasource e intentar acceder por el indice a al
DisplayMember y ValueMember, pero no he sido capaz.

Un saludo y gracias por todo.


'declaro variables
Dim fila As DataRow
Dim i As Short
Dim registros As DataRow()

'busco entre la clave principal
fila=DS.Tables("empresa").rows.find(LBLOCod_empresa.Text)
'obtendo de la relaccion las filas hijas
registros=fila.GetChildRows("empresa-contacto")

'Ahora creo una tabla porque si asigno directamente
'Me.LBcontactos.DataSource=registros(0).itemarray
'Me.LBcontactos.DisplayMember = "nombre"
'me.LBcontactos.ValueMember="cod_contacto"
'no existe lugar en el datarow donde relaccione el nombre
'los campos del datarow con "nombre" y "cod_contacto"
'

'creo la tabla,
Dim a As New DataTable

'creo las columnas
Dim c1 As New DataColumn
Dim c2 As New DataColumn
Dim c3 As New DataColumn
Dim c4 As New DataColumn
Dim c5 As New DataColumn
Dim c6 As New DataColumn

'las doy el nombre que coincida con el datarow
'devuelto por el GetChildRows, para luego usarlo
'en el DisplayMember, ValueMember.
c1.ColumnName="cod_contacto"
c2.ColumnName="cod_empresa"
c3.ColumnName="nombre"
c4.ColumnName="apellidos"
c5.ColumnName="puesto"
c6.ColumnName="cod_localidad"

'Añado las columnas a la tabla
a.Columns.Add(c1)
a.Columns.Add(c2)
a.Columns.Add(c3)
a.Columns.Add(c4)
a.Columns.Add(c5)
a.Columns.Add(c6)

'como solo se devulve una fila no hago el bucle
'introducco el datarow en la tabla.
a.Rows.Add(registros(0).itemarray)

'creo el enlace a datos
me.LBcontactos.DataSource=a
Me.LBcontactos.DisplayMember="nombre"
me.LBcontactos.ValueMember= "cod_contacto"