Dim i As Integer
Dim sSQL As String
 
 
Screen.MousePointer = 11
 
  sSQL = ""
  sSQL = sSQL & " SELECT * FROM iwmSachkontenzuordnung WHERE Mandant = " & _
    gnManId
  sSQL = sSQL & " ORDER BY Typ, Erloescode, Steuercode"
 
  ' Spalten festlegen
  With oGrid
     ' autom. Neuzeichnen des DataGrids unterbinden
    .LockUpdate True
    .Clear True
 
     ' Recordset zuweisen
    .CreateClone = True
 
 'goDataDB.rsOpenRecordset <-- ist eine programmierte Funktion die aus einer SQL
 'DB ein Recordset zurückgibt.
 'ähnlich wie rs.open (ssql , adOpenKeyset, adLockOptimistic)
    Set .Recordset = goDataDB.rsOpenRecordset(sSQL, adOpenKeyset, _
      adLockOptimistic)
 
    .FilterMoveTAB = True
    .DataMode = Mode_Recordset
    ' Erweiterte Eigenschaften
 
    .AllowColumnClick = True
    .AllowColumnSizing = True
    .AllowDelete = True
    .AllowEdit = True
    .AllowMultiSelect = True
    .AllowColumnReorder = False
    .AutoSort = True
    .AutoUpdate = True
    .CheckBoxStyle = 2 ' XP-Style
    .ShowSortSymbols = True
 
    .CaptionFont.Name = "Tahoma"
    .CaptionFont.Bold = True
    .CaptionFont.Size = 10
 
    .RowHeight = 10
    .ColumnHeaderFont.Name = "Tahoma"
    .Font.Name = "Tahoma"
    .Font.Size = 8
 
    .ColumnHeaderFont.Size = 7
    .FooterFont.Name = "Tahoma"
    .FooterVisible = False
    .FilterFont.Name = "Tahoma"
    .FooterHeight = 18
    .FilterHeight = 18
    .ColumnHeaderHeight = 18
 
    .FixedCol = True
 
 
    ' Zusätzliche Spalten-Eigenschaften festlegen
    .Columns(2).ColType = TYPE_COMBOBOX
 
    ' Wheelmaus-Unterstützung aktivieren
    .WheelMouse = True
 
    ' Neuzeichnen des DataGrids wieder aktivieren
    .LockUpdate False
    .Refresh
    .Row = 1
 
 
  End With