Can you please try this
Code:
For Each row1 As DataRow In DT1.Rows
Dim fundType As String = (From row2 In DT2.AsEnumerable()
Where row1.Field(Of String)("Fund Name").Trim().Equals(row2.Field(Of String)("MID_FUND_NAME").Trim())
Select row2.Field(Of String)("FUND_TYPE")).FirstOrDefault()
If fundType IsNot Nothing Then
row1("Fund Code") = fundType
End If
Next
Regards,

