este es el error exacto;
  Cita:  El índice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección.
Nombre del parámetro: index
    y el código que tengo ahora es este; 
 Cita:  Dim x As New Integer
        x = CInt(TextPluOri.Text)
        frmfichasproductos.DataGridView1.CurrentCell = frmfichasproductos.DataGridView1.Rows(x).Cells(0)
        frmfichasproductos.DataGridView1.CurrentCell.Selec  ted = False
    el plur que tenía seleccionado es 93572