strOutput3 = strOutput3 & dTable3.Columns(J3).ColumnName & " = " & CurrRows(I3)(J3).ToString & " "

qui

strOutput3 = strOutput3 & dTable3.Columns(J3).ColumnName & " = " & CurrRows3(I3)(J3).ToString & " "