With rstechniker
        .MoveFirst
        Do While Not .EOF
            cmb_techniker.AddItem .Fields("Vorname").Value & " " & .Fields( _
              "Name").Value
            cmb_2techniker.AddItem .Fields("Vorname").Value & " " & .Fields( _
            "Name").Value
            .MoveNext
        Loop
    End With
    cmb_2techniker.ListIndex = -1
    cmb_2techniker.Enabled = False

Private Sub cmb_2techniker_Checked()
    With cmb_2techniker
        If .Checked Then
 
        Else
            .ListIndex = -1
        End If
        .Enabled = .Checked
    End With
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)