مشكلة ارجو حلها في التعامل مع الصور

كود :
      Try

                                Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\employeedb.mdb;Jet OLEDBBig Grinatabase Password=1234kk")

                                    conn.Open()

                                    

                                    Dim command As New OleDbCommand("insert into employees (first_name, last_name, initial, address, age, contact, status, department, gender, e_position, date_hired, end_contract, rate, tin, sss, bday, kat3, mnsb, fr3, a1, a2, a3, a4, ImagePath, ImageName) values (@fname, @lname, @initial, @address, @age, @contact, @contractualradio, @dept, @gender, @pos2, @date1, @date2, @rate, @tin, @sss, @bday, @kat3, @mnsb, @fr3, @a1, @a2, @a3, @a4, @txtImagePath ,@txtImageName)", conn)

                                    With command.Parameters

                                        .AddWithValue("@fname", fname.Text)

                                        .AddWithValue("@lname", lname.Text)

                                        .AddWithValue("@initial", initial.Text)

                                        .AddWithValue("@address", address.Text)

                                        .AddWithValue("@age", age.Text)

                                        .AddWithValue("@contact", contact.Text)

                                        .AddWithValue("@contractualradio", contractualradio.Text)

                                        .AddWithValue("@dept", dept.Text)

                                        .AddWithValue("@gender", gender.Text)

                                        .AddWithValue("@pos2", pos2.Text)

                                        .AddWithValue("@date1", date1.Text)

                                        .AddWithValue("@date2", date2.Text)

                                        





                                        .AddWithValue("@rate", rate.Text)

                                        .AddWithValue("@tin", tin.Text)

                                        .AddWithValue("@sss", sss.Text)

                                        .AddWithValue("@bday", bday.Text)

                                        .AddWithValue("@kat3", kat3.Text)

                                        .AddWithValue("@mnsb", mnsb.Text)

                                        .AddWithValue("@fr3", fr3.Text)

                                        .AddWithValue("@a1", a1.Text)

                                        .AddWithValue("@a2", a2.Text)

                                        .AddWithValue("@a3", a3.Text)

                                        .AddWithValue("@a4", a4.Text)

                             

                                        .AddWithValue("txtImageName", txtImageName.Text)

                                            .AddWithValue("txtImagePath", txtImagePath.Text)

                                    End With