Dim sql As String = "INSERT INTO tblAngebote(Kunde, Ansprechpartner," & _
          "Objekt, Datum, " & _
        "Straße, PLZ, Ort, Telefon, Fax, eMail, Basispreis1, Basispreis2," & _
        "Anzahung1, Anzahlung2, " & _
        "Restwert1, Restwert2, Laufzeit1, Laufzeit2, Rate1, Rate2," & _
        "Vertragsart1, Vertragsart2, " & _
        "Vertragsbeginn1, Vertragsbeginn2, Herr, UVW-Ansprechpartner," & _
        "UVW-Telefon, UVW-Telefax) VALUES " & _
        "('" & txtKunde.Text & "', '" & txtAnsprechpartner.Text & "', '" & _
        txtObjekt.Text & _
        "', '" & txtDatum.Text & "', '" & txtStraße.Text & "', '" & txtPLZ.Text _
        & _
        "', '" & txtOrt.Text & "', '" & txtTelefon.Text & "', '" & txtFax.Text _
        & _
        "', '" & txteMail.Text & "', '" & txtBasispreis1.Text & "', '" & _
        txtBasispreis2.Text & _
        "', '" & txtAnzahlung1.Text & "', '" & txtAnzahlung2.Text & "', '" & _
        txtRestwertEuro1.Text & _
        "', '" & txtRestwertEuro2.Text & "', '" & txtLaufzeit1.Text & "', '" & _
        txtLaufzeit2.Text & _
        "', '" & txtRate1.Text & "', '" & txtRate2.Text & "', '" & _
        cmbVertrag1.Text & _
        "', '" & cmbVertrag2.Text & "', '" & dtpVertragsbeginn1.Value & "', '" _
        & dtpVertragsbeginn2.Value & _
        "', '" & HerrJA & "', '" & UVWAnspr & "', '" & UVWTelefon & "', '" & _
        UVWTelefax & "')"

Gru?,

Sebastian M?ller

www.ComOnShop.de