Convert DataTable to Dictionary in VB.NET
Private Function DataTableToDictionary(ByVal dt As DataTable) As List(Of Dictionary(Of String, Object))
Dim dictionaries = New List(Of Dictionary(Of String, Object))()
For Each row As DataRow In dt.Rows
Dim dictionary As Dictionary(Of String, Object) = Enumerable.Range(0, dt.Columns.Count).ToDictionary(Function(i) dt.Columns(i).ColumnName, Function(i) row.ItemArray(i))
dictionaries.Add(dictionary)
Next
Return dictionaries
End Function