Adding values inside the datatable to a Dictionary in VB.net

Hi All,
I have a linq query I converted it to a datatable. Now I need to add the values to a dictionary. How can I do that??
I have columns like below
ID FName  Lname Sal CompanyName Add
1     A         B        23    Test                Y
2     C         D        32    Test                Y

Dim TestDict As New Dictionary(Of String, String) For Each dt As DataRow In TestDataTable.Rows TestDict.Add( ) Next
...