Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
   Button3.Click
     'Add'
     Try
         With con
             .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
               "Source=C:\Users\andi-\Downloads\Teile mit Neuen Preis-" & _
               "Kopie.accdb"
             .Open()
 
             With command
                 .Connection = con
                 .CommandText = "Insert into KD_Bestellung(" & _
                   "[BestellID],[IDKunde],[Kunden_Name],[IDOSPNR],[IDASTONNR]," & _
                   "Menge],[Bezeichnung],[E_Preis],[Summe],[Datum],[image])
                                 Values( _
                                 @BestellID,@IDKunde,@Kunden_Name,@IDOSPNR,@IDA_
                                 STONNR,@Menge,@Bezeichnung,@E-Preis,@Summe,@Da_
                                 tum,@image)"
             End With
 
             command.Parameters.AddWithValue("@BestellID", TextBox9.Text)
             command.Parameters.AddWithValue("@IDKunde", TextBox1.Text)
             command.Parameters.AddWithValue("@Kunden_Name", TextBox2.Text)
             command.Parameters.AddWithValue("@IDOSPNR", TextBox3.Text)
             command.Parameters.AddWithValue("@IDASTONNR", TextBox4.Text)
             command.Parameters.AddWithValue("@Menge", TextBox5.Text)
             command.Parameters.AddWithValue("@Bezeichnung", TextBox6.Text)
             command.Parameters.AddWithValue("@E-Preis", TextBox7.Text)
             command.Parameters.AddWithValue("@Summe", TextBox8.Text)
             command.Parameters.AddWithValue("@Datum", _
               DateTimePicker1.Value.Date)
             command.Parameters.AddWithValue("@image", abyt)
 
             command.ExecuteNonQuery()
             MsgBox("Kunden Bestellung Details Saved Successfully!")
             con.Close()
             command.Dispose()
         End With
     Catch ex As Exception
         MessageBox.Show("Error : " + ex.Message.ToString())
     End Try
 End Sub