Try

       Dim cmd As New OleDbCommand("Insert into Objective_Customer_Visits(Customer_Name,SAM_Manager_Id,Visit_Date,Comments) values ('" & comboObjectiveCustVisitCustName2Add.Text & "', " & userId & ", # " & DTPObjectiveCustVisitDate2Add.Value.ToString("yyyy / MM / dd") & " #,'" & textBoxObjectiveCustVisitComent2Add.Text & "' )", con)

       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()

       MsgBox("Add Succeeded")


   Catch ex As Exception
       MessageBox.Show(ex.Message)

   End Try

وعليكم السلام ورحمة الله وبركاته

اذا كان المقصود بالملف هو الصور فيمكنك متابعة الرابط التالى

اذا كان المقصود بالملفات وهى الملفات بشكل عام

فالامر بسيط ولكن غير مستحب لان قاعدة البيانات اكبر حجم لها 2 جيجا

واذا تم استخدام المرفقات كا ملفات قد تصل الى اسبوع تقريباً ولا يمكنك استخدام قاعدة البيانات بعدها

بسبب وصول قاعدة البيانات الى الحجم الاعلى لها وهو 2 جيجا

تحياتى لك

وتمنياتى لك التوفيق