Dim i As Integer
 
Set RS = DB.OpenRecordset("Select Name From Techniker order by Name", _
  dbOpenDynaset)
RS.MoveLast
RS.MoveFirst
cboTechniker.Clear
 
  For i = 0 To RS.RecordCount - 1
    cboTechniker.AddItem RS("Name")
    RS.MoveNext
  Next i
 
cboTechniker.ListIndex = 0
cboTechniker.Text = ""
 
 
Set RS = DB.OpenRecordset("Select Zeit From Techniker order by Zeit", _
  dbOpenDynaset)
RS.MoveLast
RS.MoveFirst
cboBauzeit.Clear
 
  For i = 0 To RS.RecordCount - 1
    cboBauzeit.AddItem RS("Zeit")
    RS.MoveNext
  Next i
 
cboBauzeit.ListIndex = 0
cboBauzeit.Text = ""