With sevGrid(1)
    .LockUpdate True
    .RowHeight = 14
    .ColumnAdd "Key", "Spalte 1"
    Set .Recordset = movDatabase.OpenRecordset("SELECT * FROM [DB612] ORDER BY" & _
      "[01]")
 
    .Columns("9992").Position = 1
    .Columns("01").Position = 2
    .Columns("1010").Position = 3
    .Columns("1015").Position = 4
    .Columns("1016").Position = 5
 
    .Columns(1).Visible = False
    .Columns(6).Visible = False
    .LockUpdate False
    .Refresh
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de