With KKlasseMO
        .ActiveConnection = DB
        .Source = "Klasse"
        .LockType = adLockOptimistic
        .Open Options:=adCmdTable
    End With
 
    For i = 0 To 7
    MoKlasse(i) = "BVJ01"
    If KKlasseMO.EOF = True Then
        Else
        KKlasseMO.MoveFirst
 
        While KKlasseMO.EOF = False
 
            If KKlasseMO.EOF = False Then
                MoKlasse(i).AddItem KKlasseMO!KlasseAbK
            End If
 
            KKlasseMO.MoveNext
        Wend
    End If
    KKlasseMO.EOF = False
    Next i