Я перестал связывать и делал вещи вручную.Получил набор данных с двумя столбцами, идентификатором и значением.
Dim rmHello As New ResourceManager("Resources.ResourceFileName", Assembly.Load(New AssemblyName("app_GlobalResources")))
Dim dsData As DataSet
Dim drData As DataRow
Dim li As ListItem
If Not IsNothing(dsData) AndAlso dsData.Tables.Count > 0 Then
For Each drData In dsData.Tables(0).Rows
li = New ListItem(rmHello.GetString(CStr(drData.Item("ID"))), CStr(drData.Item("value")))
rbl.Items.Add(li)
Next
End If
Я уверен, что проверка данных и, возможно, ссылка на таблицу (0). Строки могут быть более аккуратными, но я надеюсь, что это кому-то понятнее.