Dim drv As DataRowView = DV(iCount2)
 
        Try
 
           Data = SaveInputToTemp(TP)
            For iCount = 0 To 19
                If Data(iCount, 1) <> "" Then
                    If Mid(Data(iCount, 0), 1, 4) = "Date" Then
                        drv(Data(iCount, 0)) = CDate(Data(iCount, 1))
                    Else
                        drv(Data(iCount, 0)) = Data(iCount, 1)
                    End If
                End If
            Next iCount
            '....
        End Try