'...
 Dim pCategoria As String = String.Empty
        Dim pGrado As String = String.Empty
        Dim pCognome As String = String.Empty
        Dim pDataNascita As String = "1900-01-01"

        If Not String.IsNullOrEmpty(columns(1)) Then
            pCategoria = columns(1)
        End If
        If Not String.IsNullOrEmpty(columns(2)) Then
            pGrado = columns(2)
        End If
        If Not String.IsNullOrEmpty(columns(1)) Then
            pCognome = columns(1)
        End If
        If Not String.IsNullOrEmpty(columns(7)) Then
            pDataNascita = columns(7)
        End If

        ' assegno i valori ai campi (qui non è gestito il valore NULL, aggiungi la gestione se serve)
        objRow.CodiceFiscale = columns(0)
        objRow.Categoria = pCategoria
        objRow.Grado = pGrado
        objRow.Cognome = pCognome
        objRow.Nome = columns(4)
        objRow.LuogoNascita = columns(5)
        objRow.ProvNascita = columns(6)
        objRow.DataNascita = Convert.ToDateTime(pDataNascita)
        objRow.Indirizzo = columns(8)
        objRow.Comune = columns(9)
        objRow.ProvResidenza = columns(10)
        objRow.Cap = columns(11)
        objRow.DataArruolamento = Convert.ToDateTime(columns(12))
        objRow.DataCongedo = Convert.ToDateTime(columns(13))
'...