when i do that it skips h_rs.delete.
For Each vItem In Ctl.ItemsSelected
Set h_rs = CurrentDb.OpenRecordset("SELECT pronum, finishing, colour, ref_num_buyer, date, logo FROM Generate_labels WHERE ChangeUserName = '" & ChosenName & "';")
If Not h_rs.EOF And Not h_rs.BOF Then...