Dim SQLWhereAs String = "Nome  = 'Mario'"
   Dim foundRows() As DataRow
   foundRows = retDataTable.Select(SQLWhere)
   Dim FilterDataTable As DataTable = retDataTable.Clone()   'Copio solo la struttura del DataTable senza dati

      'Importo le righe
                For Each drSingleRow As DataRow In foundRows
                    FilterDataTable.ImportRow(drSingleRow)
                Next