[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي الكريم 
تأكد من الحقول الرقمية والنصية 
لاحظ ان هذه الحقول انت وضعتها رقمية 
" & N_Dossier.Text & "
" & MONTANT.Text & "
فإن كانت رقمية حولها هكذا
" & Convert.ToInt32(N_Dossier.Text) & "
" & Convert.ToInt32(MONTANT.Text) & "
وإن كانت نصية صع لها سنكل كوتيشن مثل البقية
ناحية اخرى من أجل فتح الاتصال اكتب كود الفتح هكذا أي أغلقه ثم افتحه

كود :

If Con.State = ConnectionState.Open Then Con.Close()
               Con.Open()