[nona wnees]

اريد مساعده ف ف كود خطا يطلعي ف شاشة المنتجات عند التعديل ..الخطا هو يقولي مافش صفوف ف datatable
   Sub ShowData(ByVal pid)
        pro_id.Text = pid
        Dim sql = "select * from Supplier_prod where class_name= '" + pro_id.Text + "'"
        Dim adp = New SqlClient.SqlDataAdapter(sql, SQLCONN)
        Dim ds = New DataSet

        adp.Fill(ds)

        
        Dim dt = ds.Tables(0)
        Dim dr = dt.Rows(0) هنا الخطا

        pro_id.Text = dr!pro_id
        pro_name.Text = dr!pro_name
        pro_id.ReadOnly = True
        class_name.Text = dr!class_name
        exp_date.Text = dr!exp_date
        com_name.Text = dr!com_name
        place.Text = dr!place
        form_name.Text = dr!form_name
        price.Text = dr!price
        quantity.Text = dr!quantity
        Supplier_name.Text = dr!Supplier_name