[elgokr]

هو ليس باخطاء ولكن بتنبيه

حيث ان كلاً من COD__ و DT_COD

لا يحتوى على اى قيمة صحيحة او افتراضية

حيث ان COD__ هو من نوع Double ولكن تحتوى على قيمة 0 وهو من نوع int

وايضاً DT_COD من نوع DataTable ولكن لم يشعر بالقيمة 

فى البداية يمكن تجاهل الامر واستكمال دون الاهتمام الى تلك التنبيهات

ويرجع هذا الامر بسبب اصدار الاستديو المستخدم لديك ولحل المشكلة يمكن عمل التالى

جرب ان تجعل كل منهم بهذا الشكل

كود :

Dim COD__ As Double = 0
الى
Dim COD__ As Double = Nothing

وبخصوص

كود :

Dim DT_COD As New DataTable
الى
Dim DT_COD As DataTable = New DataTable

تحياتى لك

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