Cargo un data grid pero me tira el siguiente error :

el indice esta fuera del intervalo,debe ser un valor no negativo e inferior al tamaño de la coleccion

necesito ayuda para poder solucionarlo

aca esta el codigo donde me tira ese error


 Try

                Dim comando1 As New MySqlCommand
                comando1.Connection = conn
                comando1.CommandType = CommandType.StoredProcedure

                comando1.CommandText = "TraePeCotizacion"

                comando1.Parameters.Add(New MySqlParameter("@ParamId", (cmbpedcot.SelectedValue)))
                Dim dr1 As MySqlDataReader

                dr1 = comando1.ExecuteReader()
                Dim tabla1 As New DataTable
                tabla1.Dispose()
                tabla1.Load(dr1)
                Dim idproveedor As Integer
                Dim preap As Integer
                Dim fecha As String
                ' Dim fechaformato As String


                idproveedor = tabla1.Rows(0).Item(2).ToString
                'txtlugar.Text = tabla1.Rows(0).Item(5).ToString
                fecha = tabla1.Rows(0).Item(7).ToString
                preap = tabla1.Rows(0).Item(4).ToString

                'fechaformato = Format(CDate(fecha), "yyyy/MM/dd")
                'txtfechaentrega.Text = fechaformato


                Dim comando2 As New MySqlCommand
                comando2.Connection = conn
                comando2.CommandType = CommandType.StoredProcedure

                comando2.CommandText = "TraeRazonSocial"
                comando2.Parameters.Add(New MySqlParameter("@ParamIdProveedor", idproveedor))

                Dim dr2 As MySqlDataReader
                dr2 = comando2.ExecuteReader()

                Dim tabla2 As New DataTable
                tabla2.Dispose()
                tabla2.Load(dr2)

                'txtproveedor.Text = tabla2.Rows(0).Item(0).ToString       "no va mepa"

                Dim comando3 As New MySqlCommand
                comando3.Connection = conn
                comando3.CommandType = CommandType.StoredProcedure

                comando3.CommandText = "TraeProductosPorProveedor"

                comando3.Parameters.Add(New MySqlParameter("@ParamProveedor", idproveedor))
                comando3.Parameters.Add(New MySqlParameter("@ParamPedido", preap))
                Dim dr3 As MySqlDataReader

                dr3 = comando3.ExecuteReader()
                Dim tabla3 As New DataTable
                tabla3.Dispose()
                tabla3.Load(dr3)
                DataGridView1.DataSource = tabla3

             

            Catch exmysql As MySqlException
                MessageBox.Show("Error: " & exmysql.Message)
            Catch ex As Exception
                MessageBox.Show("Error: " & ex.Message)