Dim sSQL As String 
Dim sOrder As String 
 
sSQL = "SELECT FirmenID, Firma, Strasse, PLZ, Ort, Land, ABC, Typ FROM Firmen" 
With Forms!Prototyp!Grid1 
  .LockUpdate True
  sOrder = .SortOrder 
  Set .Recordset = CurrentDB.OpenRecordset(sSQL)
  .DoSort sOrder 
  .LockUpdate False
  .Refresh 
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de