Dim DB As Database
    Dim Rs As Recordset
 
    Set DB = DBEngine.OpenDatabase( _
      "n:\abteilungen\informationstechnologie\allgemein\wochenplanadm\db\woche" & _
      "planadm.mdb")
    Set Rs = DB.OpenRecordset("SELECT KW FROM t_KW")
 
    While Not Rs.EOF
        cboxKW.AddItem Rs(0)
        Rs.MoveNext
    Wend
 
    Rs.Close
    DB.Close
    Set DB = Nothing

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)