[khalid475]

شكرا لك أخي الكريم 

الأكواد كالتالي 

Data 

كود :

Friend Function Load_Volations_Details(ByRef dr As SqlDataReader, ByVal VolationCode As Integer, ByVal ActionNumber As Integer)
           Dim cmd As New SqlCommand("Load_Volations_Details")
           cmd.Parameters.Add("@VolationCode", SqlDbType.Int).Value = CType(VolationCode, Integer)
           cmd.Parameters.Add("@ActionNumber", SqlDbType.Int).Value = CType(ActionNumber, Integer)
           
           Dim retval As Integer = dm.executeReader(cmd, dr)
           Return retval
       End Function

Business 

كود :

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

SearchBtn

كود :

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