out of range erxception

[GR M]

I'm having out of range exception when executing the line

rdr_mfdby = rdr(" Mfd_company").ToString
 
 

FYI giving the code below.

 
  Private Sub AllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllToolStripMenuItem.Click
        Dim todate = DateAndTime.Now.Date
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Dim cmd As OleDbCommand = New OleDbCommand("Select In_date, product_name, Batch_no, pack, Mfd_company from Inward_Entry", con)
        Dim rdr As OleDbDataReader
        rdr = cmd.ExecuteReader
        Dim dt As DataTable = New DataTable
        Try
            Dim span As TimeSpan
            Dim rdr_dt As Date
            Dim rdr_name, rdr_batch, rdr_pack, rdr_mfdby As String
           While rdr.Read()
                rdr_dt = rdr("in_date").date
                rdr_name = rdr("Product_name").ToString
                rdr_batch = rdr("Batch_no").ToString
                rdr_pack = rdr("pack").ToString
                rdr_mfdby = rdr(" Mfd_company").ToString
                span = todate.Subtract(rdr_dt)
                Dim cmd1 As OleDbCommand = New OleDbCommand("update warehouse_master set ageing = span  where product_name='" & rdr_name & "' and product_batch_no='" & rdr_batch & "' and item_pack='" & rdr_pack & "' and product_manufacturer='" & rdr_mfdby & "' ", con)
                cmd1.ExecuteNonQuery()
            End While
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        con.Close()
    End Sub
 

Plz help

[David Gluth]

If it is not a typo here then the leading blank in your indexor will cause this kind of error.

(" Mfd_company") must be ("Mfd_company").

[GR M]

I'v done it myself. Bt thanks a lot for your time and support