[asemshahen5]

كود :

Sub loadmethodid()
       load_method("select method_id,method_name from method where method_name=N'" & Cmbpurchasebillheader_method_id.Text & "'")
       methodId = dt_method(0)("method_id")
   End Sub

خطأ تسمية بدل كتابة Load_Method كتبت Loadmethodid