With tbl ' DataTable не связана с датасетом и заполненна с помощью датаридера - tbl.Load(DataReader)'
            .DefaultView.Sort = "ID"
            
            With .Columns("ID")
                .Unique = True
                .AutoIncrement = True
                .AutoIncrementSeed = - 1 
                .AutoIncrementStep = - 1 
                .ReadOnly = True
            End With
        End With
        Dim rw as DataRow = tbl.NewRow ' вот здесь rw("ID") = отнюдь не  минус  1 , как хотелось бы, а = MAX(ID) -  1