Botones para navegar por un datagrid

[Mary_]

Hola, tengo un problemilla con unos botones de navegación para un datagrid.
El caso es que l triangulito q hay en el márgen izkierdo q indica que fila está seleccionada cuándo avanzamos por el datagrid manualmente no se mueve. Yo creo q la función que hago de "desplazamiento" está bien pero no sé porqué razón no lo hace.

Private Sub desplazamiento(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimero.Click, btnAnterior.Click, btnSiguiente.Click, btnUltimo.Click
Dim drfila As DataRow
If sender Is btnPrimero Then
iposicion = 0
drfila = dsdatos.Tables(tabla).Rows(iposicion)
ElseIf sender Is btnAnterior Then
If iposicion = 0 Then
MessageBox.Show("Ya te encuentras en el Primer registro")
Else
iposicion -= 1
drfila = dsdatos.Tables(tabla).Rows(iposicion)
End If
ElseIf sender Is btnSiguiente Then
If iposicion = dsdatos.Tables(tabla).Rows.Count - 1 Then
MessageBox.Show("Estas en el último registro...")
Else
iposicion += 1
drfila = dsdatos.Tables(tabla).Rows(iposicion)
End If
Else
iposicion = dsdatos.Tables(tabla).Rows.Count - 1
drfila = dsdatos.Tables(tabla).Rows(iposicion)
End If
End Sub


Gracias.