I found where the problem started, and found a fix too.
I first do:
iGridSrch.BeginUpdate
iGridSrch.Clear True
iGridSrch.FillFromRS ss, igFillRSRecreateColsOnly
ss.Close
SortSet = GetSetting("testsort", "test", "sort", "")
colSet = GetSetting("testsort", "test", "col", "")
If SortSet > "" Then iGridSrch.LayoutSort = SortSet
If colSet > "" Then iGridSrch.LayoutCol = colSet
iGridSrch.EndUpdate
Than later I do:
Set ss = zdb.OpenRecordset("Tabel1")
iGridSrch.BeginUpdate
iGridSrch.Clear
iGridSrch.FillFromRS ss, igFillRSAddToExistingRows
iGridSrch.EndUpdate
After this the "sort numbers"where not visible, but the arrows where,
Now I do:
Set ss = zdb.OpenRecordset("Tabel1")
colSet = iGridSrch.LayoutCol
iGridSrch.BeginUpdate
SortSet = iGridSrch.LayoutSort 'SAVE THE SETTING TEMPORARILY
iGridSrch.Clear
iGridSrch.FillFromRS ss, igFillRSAddToExistingRows
iGridSrch.LayoutSort = SortSet 'RESTORE THE SETTING
iGridSrch.EndUpdate
Than everything works ok