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)

tengo un combobox q me trae la razon social del proveedor,al elegir una razon social   tengo q cargar calle,telefono,piso,departamento,email en  6 textbox y 2 combobox...


con este codigo traigo los datos de la razon social y me funicona,me faltaria hacer lo q explique arriba


        With comando
            .CommandType = CommandType.Text
            .CommandText = "select razonsocial from proveedores"
            .Connection = conn

        End With

        adaptador.SelectCommand = comando

        Dim datatable = New DataTable
        adaptador.Fill(datatable)

        With cmbrazonsocial
            .DataSource = datatable
            .DisplayMember = "razonsocial"
            .ValueMember = "razonsocial"
        End With