OpenDB "SELECT * FROM as_pkv_anfragen"
 
    rs.AddNew
 
    rs.Fields("Voicefile").Value = "/" + sCCVerm + "/" + lblinr.Caption + ".wav"
 
    rs.Fields("Herstellernummer").Value = sCCVerm
    rs.Fields("FirmaBranche").Value = sBranche
    rs.Fields("CallAgent").Value = lblAgentName.Caption
    rs.Fields("InterneBez").Value = lblinr.Caption
    rs.Fields("Vermittler").Value = ""
    rs.Fields("Firma").Value = sFirma
    rs.Fields("Anrede") = sAnrede
    rs.Fields("Name").Value = txtName.Text
    rs.Fields("Vorname").Value = txtVorname.Text
    rs.Fields("Straße").Value = txtStraße.Text
    rs.Fields("PLZ").Value = txtPLZ.Text
    rs.Fields("Ort").Value = txtOrt.Text
    rs.Fields("Tel_privat").Value = txtTel.Text
    rs.Fields("Geburtsdatum") = CVar(cboTag.Text + "." + cboMonat.Text + "." + _
      cboJahr.Text)
    rs.Fields("Telefax").Value = txtFax.Text
    rs.Fields("Tel_mobil").Value = txtHandy.Text
    rs.Fields("e_mail").Value = txtEMail.Text
    rs.Fields("Familienstand").Value = txtFamilienstand.Text
    rs.Fields("Kinder").Value = txtKinder.Text
    rs.Fields("Berufsstatus").Value = txtBerufsstatus.Text
    rs.Fields("Berufsbez").Value = txtBerufsbez.Text
    rs.Fields("wie_versichert").Value = txtWieVersichert.Text
    rs.Fields("wo_versichert").Value = txtWoVersichert.Text
    rs.Fields("versichert_seit").Value = txtSeitWannVersichert.Text
    rs.Fields("Monatsbeitrag").Value = txtMonatsbeitrag.Text
    rs.Fields("Gesundheitszustand").Value = cboGesundheitszustand.Text
    rs.Fields("Medikamente").Value = txtMedikamente.Text
    rs.Fields("Familienangehoerige_mitversichern").Value = txtMitVersichern.Text
    rs.Fields("Bemerkungen").Value = "Kennwort: " + txtKennwort.Text + Space(2) _
      + txtBemerkungen.Text
    rs.Fields("Kontaktaufnahme").Value = txtBesteErreichbarkeit.Text
    rs.Fields("create_time").Value = Time$
    rs.Fields("create_user").Value = lblAgentName.Caption
 
    rs.Update
 
    rs.Close
 
    Set rs = Nothing
 
    Unload frmDaten