Ecco subito il codice:
----------------------
Public Shared Function DecryptDataSet(ByVal ds As DataSet) As DataSet
Try
'Dim ds As New DataSet
'ds = inPutds
Dim dt As DataTable
Dim dc As DataColumn
Dim dr As DataRow
For Each dr In ds.Tables(0).Columns
if dc.DataType.ToString() = "System.String" Then
If IsDBNull(dr(dc.Caption)) then
Else
dr(dc.Caption) = obj.DecriptData(dr(dc.Caption))
End if
End if
Next
Next
Return ds
Catch ex As Exception
ErrorLog.LogError(ex)
MsgBox("Errore",MsgBoxStyle.Information, "Analisi GAP")
End Try
End Function