despues de tanto probar e investigar he solucionado y como sé que muchos consultarán este tema voy a compartir con ustedes la solución. El codigo quedó de la siguiente manera:
Código:
Dim nombre As New DalaiSyncTableAdapters.Sync_ReplacementsTableAdapter
Dim nombredato As DalaiSync.Sync_ReplacementsDataTable = nombre.GetDataByoriginalName("E")
Dim Abv As New Dictionary(Of String, String)
For Each elemento As DalaiSync.Sync_ReplacementsRow In nombredato.Rows
Abv.Add(elemento.originalName, elemento.replacement)
Next
de esta forma puedo almacenar y si quisiera mostrar tambien los datos... Saludos