Index out of range exception - {"particular"}

---

У меня есть база данных SQL со следующими подробностями таблиц;

Билл Без Особого Цена За Единицу Измерения Сумма Налога Taxamount
2905 авиаперевозка 100.000 100 10000.000 0.000 0.000
2905 таможня 4500.00 1 0.000 4500.000 675.000
2906 ТГК 250.000 250.000 0.000 1 38.000
2906 XYZ 5000.00 1 5000.000 0.0000 0.0000

В оконной форме у меня есть текстовое поле с именем Tbblbillto.Текст для поиска bill no и Datagrid со следующим именем. когда я наберу Билл нет. в текстовом поле, как все данные можно собрать из таблицы данных базы данных sql против счета no и отобразить в datagrid ?? Пожалуйста, помогите, как это сделать. на самом деле я использую его для своей собственной работы и никогда не испытываю никакого программного обеспечения или не изучал.

Конкретная Цена Единичная Сумма Taxamount Tax

Что я уже пробовал:

Private Sub Tbblbillto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbblbillto.TextChanged

      Dim Cmd As New SqlClient.SqlCommand
      Dim Con As New SqlClient.SqlConnection
      Dim Rd As SqlDataReader
      Con.ConnectionString = "Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=dbase;Integrated Security=True;Pooling=False"
      Cmd.Connection = Con
      Con.Open()
      Cmd.CommandText = "Select * from Bill where BillNo = '" & Tbblbillto.Text & "'"
      Rd = Cmd.ExecuteReader
      Rd.Read()
      If Rd.HasRows Then
          Dtpblbilldate.Text = Rd.Item("BillDate")
          Dudblmode.Text = Rd.Item("Smode")
          Dudbltype.Text = Rd.Item("Stype")
          Lbcur.Text = Rd.Item("Curency")
          Tbbljobno.Text = Rd.Item("JOBNo")
          Dtpbljobdt.Text = Rd.Item("JobDate")
          Tbbillexr.Text = Rd.Item("ExRate")
          Tbblcrdit.Text = Rd.Item("CreditPeriod")
          Lbbillno.Text = Rd.Item("BillNoType")
          Tbbillcltid.Text = Rd.Item("ClientID")
          Tbblname.Text = Rd.Item("BillTo")
          Tbblmawb.Text = Rd.Item("MAWBBLNo")
          Dtblmawbdt.Text = Rd.Item("MAWBBLDate")
          Tbblhawb.Text = Rd.Item("HAWBBLNo")
          Dtblhawbdt.Text = Rd.Item("HAWBBLDate")
          Tbblorg.Text = Rd.Item("Origin")
          Tbblpol.Text = Rd.Item("POL")
          Tbbldst.Text = Rd.Item("Dest")
          Tbblpod.Text = Rd.Item("POD")
          Tbblpro.Text = Rd.Item("Products")
          Tbblinv.Text = Rd.Item("ShInvNo")
          Dtblinvdt.Text = Rd.Item("ShInvdt")
          Tbblqty.Text = Rd.Item("Qty")
          Tbblgwt.Text = Rd.Item("Gwt")
          Tbblcwt.Text = Rd.Item("Cwt")
          Tbblacof.Text = Rd.Item("Acof")
          Tbblcarrier.Text = Rd.Item("Carrier")
          Dudblfreight.Text = Rd.Item("Freight")
          Dudblterms.Text = Rd.Item("Incotrm")
          Cmd.CommandText = "Select BillNo from BillDetails Where BillNo = '" & Tbblbillto.Text & "'"
          Rd.Close()
          Rd = Cmd.ExecuteReader
          Rd.Read()
          If Rd.HasRows Then
              Dim Row As DataGridViewRow
              Dim I As Integer
              For I = 0 To Dgvbillsa.Rows.Count - 1
                  Row = Dgvbillsa.Rows(I)
                  Using SqlCommand As New SqlCommand
                      Row.Cells(0).Value = Rd.Item("Particular") (Error Here)
                      Row.Cells(1).Value = Rd.Item("Price")
                      Row.Cells(2).Value = Rd.Item("Unit")
                      Row.Cells(3).Value = Rd.Item("Amount")
                      Row.Cells(4).Value = Rd.Item("TaxAmount")
                      Row.Cells(5).Value = Rd.Item("Tax")
                  End Using
              Next
          End If

      ElseIf Len(Tbblbillto.Text) > 3 Then
          MsgBox("No Invoice Record Found", MsgBoxStyle.Critical, "MODIFY BILL")
          CmdEdit.Enabled = False
      End If

  End Sub

---