Private Sub Command1_Click()
  If Check(txtTCPIP.Text) = True Then
    With frmArbeitsstation.Adodc1.Recordset
      <font color=green>' ObjektNummer prüfen</font>
      .Find "Objektnummer = '" & txtObjektNummer.Text & "'"
      If .Eof Then
        <font color=green>' Objektnummer noch nicht vorhanden</font>
        .AddNew
        .Fields("Bezeichnung") = txtBezeichnung.Text
        .Fields("Standort") = txtStandort.Text
        .Fields("Objektnummer") = txtObjektNummer.Text
        .Fields("TCPIP") = txtTCPIP.Text
        .Fields("Netzwerkname") = txtNetzwerkname.Text
        .Fields("Bemerkungen") = txtBemerkungen.Text
        .Fields("BenutzerLNr") =
        frmBenutzerliste.Adodc1.Recordset.Fields("BenutzerLNr")
        .Update
      End If
    End With
    Unload Me
  Else
    MsgBox "Fehler in IP- Adressen"
    txtTCPIP.SetFocus
  End If
End Sub</code>