[khalid475]

أشكرك جزيل الشكر لكن هل أغير شي على هذه الأكواد 

في زر البحث

كود :

ActionOneName.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text).ToString
       ActionOneFees.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text).ToString

وفي كلاس Business 

كود :

Public Function Load_Volations_Details(ByVal VolationCode As Integer, ByVal ActionNumber As Integer) As SqlDataReader
           p.Load_Volations_Details(dr, VolationCode, ActionNumber)
           Return dr
       End Function

لان يظهرلي خطأ 

في زر البحث 

 Object reference not set to an instance of an object