Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
If Arbkeygesetzt = True Then
    stSQL = "Select Arbeitsplatz.ArbKey, Mitarbeiter.MitKey," & _
      "Arbeitsplatz.ArbPcName" _
    & " FROM Mitarbeiter INNER JOIN Arbeitsplatz ON Mitarbeiter.MitKey =" & _
    "Arbeitsplatz.ArbMitarbeiterNr" _
    & " WHERE (((Arbeitsplatz.ArbKey)=" & hArbkeynr & "))" _
    & "ORDER BY Arbeitsplatz.ArbPcName;"
    cboPCName.RowSource = stSQL
    cboPCName.Requery
    txtArbKey = hArbkeynr
    Forms!frmMitarbeiter_bearbeiten_löschen!cboPCName.DefaultValue = _
      Forms![frmAuswahl_Arbeitsplatz_bearbeiten_löschen]![txtArbKey]
    Else
    stSQL = "SELECT Mitarbeiter.MitKey, Arbeitsplatz.ArbKey," & _
      "Arbeitsplatz.ArbPcName" _
    & " FROM Mitarbeiter INNER JOIN Arbeitsplatz ON Mitarbeiter.MitKey =" & _
    "Arbeitsplatz.ArbMitarbeiterNr" _
    & " WHERE (((Mitarbeiter.MitKey)=" & hMitkeynr & "))" _
    & "ORDER BY Arbeitsplatz.ArbPcName;"
    cboPCName.RowSource = stSQL
    cboPCName.Requery
    Forms!frmMitarbeiter_bearbeiten_löschen!cboPCName.DefaultValue = _
      Forms![frmAuswahl_Arbeitsplatz_bearbeiten_löschen]![txtMitKey]
End If