sSql = "Select x,y,z,id from Xxxxxx where Id = '" & ID & "'  order by x"
 RS.CursorLocation = adUseClient
 RS.Open sSql, DB, adOpenStatic, adLockOptimistic
  With Grid
    .Clear (True)
    .LockUpdate True
    .DataMode = Mode_Recordset
    .CreateClone = True
    Set .Recordset = RS
    .Columns(4).Visible = False
    .AutoSort = False
    .ShowSortSymbols = False
    .AllowEdit = True
    .AllowMultiSelect = True
    .AllowDelete = False
    .AllowColumnSizing = True
    .FixedCol = False
    .RowHeight = 16
    .RowHeightMax = 16
    .RowHeightMin = 16
    .LockUpdate False
    .Refresh
    End With
    RS.Close