With GridHersteller 
  .DataMode = Mode_Recordset 
  .LockUpdate True 
  .ColumnAdd , , 400 ' ID Nummer 
  .ColumnAdd , , 2500 ' Herstellername 
  .CreateClone = True
  Set .Recordset = rsHersteller 
  ...

Private Sub Grid1_ErrorSort(ByVal nCol As Long, _
  ByVal nError As Long, ByVal sDescription As String)
 
  MsgBox "Fehler beim Sortieren!" & vbCrLf & CStr(nError) & ", " & sDescription
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de