Private Sub cmd_save_Auftrag_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles cmd_save_Auftrag.Click
 
 
        Provider()
        Try
            con.Open() 
            cmd.CommandText = "INSERT INTO offene_Aufträge (Datum, Termin," & _
              "Abholung, Name, Vorname, Strasse, PLZ, Ort, Transportart," & _
              "Transport von, Transport nach, Bemerkungen, Krankenkasse," & _
              "Vers-Nr, Preis, Aufnahme Nr) VALUES ('" & datepicker1.Value & _
              "', '" & tx_pat_termin.Text & "', '" & tx_pat_abholung.Text & "'," & _
              "'" & tx_Pat_name.Text & "', '" & tx_Pat_vorname.Text & "', '" & _
              tx_pat_strasse.Text & "','" & tx_pat_plz.Text & "','" & _
              tx_pat_ort.Text & "','" & co_pat_transport.Text & "', '" & _
              tx_pat_von2.Text & "', '" & tx_pat_nach2.Text & "', '" & _
              tx_pat_bemerkung.Text & "', '" & tx_pat_kasse.Text & "', '" & _
              tx_pat_versnr.Text & "', '" & tx_pat_preisvb.Text & "', '" & _
              tx_pat_aufnahmeNr.Text & "')" 'Der Befehl für die DB"
 
            con.Close()
 
        End Try
 
    End Sub