Private Sub Command1_Click()
  Dim oItem As sevDataGrid.ListItem
 
  Set DB = Workspaces(0).OpenDatabase(App.Path & "\Datenbank.MDB", False, False)
  SQL = "SELECT DISTINCT Tag, LehrerHauptunterricht FROM Schüler"
  Set oRecordset = DB.OpenRecordset(SQL)
 
  ' sevDataGrid
  With Grid3
    .Clear True
    .DataMode = Mode_List
 
    ' autom. Neuzeichnen ausschalten
    .LockUpdate True
    .FixedCol = True
    .ColumnAdd "MO", "Montag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
      ALIGNMENT_CENTER
    .ColumnAdd "DI", "Dienstag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
    .ColumnAdd "MI", "Mittwoch", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
    .ColumnAdd "DO", "Donnerstag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
    .ColumnAdd "FR", "Freitag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
    .ColumnAdd "SA", "Samstag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
    .ColumnAdd "SO", "Sonntag", 2000, ALIGNMENT_CENTER, True, TYP_TEXT, _
    ALIGNMENT_CENTER
 
    Do While Not oRecordset.EOF
      Set oItem = .AddItem("")
      oItem.CellText(oRecordset.Fields("Tag").Value) = oRecordset.Fields( _
        "Lehrerhauptunterricht").Value
 
      oRecordset.MoveNext
    Loop
 
    .LockUpdate False
    .Refresh
    .Row = 1
  End With
 
  oRecordset.Close
  Set oRecordset = Nothing
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de