Visual Basic.NET - Botones de desplazamiento por DataGridview

Option Explicit On

Imports System.Data.OleDb

Imports System.ComponentModel

Public Class frmCp

    Inherits System.Windows.Forms.Form

    Private cn As New OleDbConnection

    Private da As New OleDbDataAdapter

    Private ds As New DataSet

    Private dt As New DataTable

    Private fila As Integer

    Private Sub frmCp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conectaBD()

        cargaDatos()

        DataGridView1.DataSource = ds.Tables("CargaCp")

        Dim X As Boolean

        Me.btnDcha.Enabled = X

    End Sub

    Sub conectaBD()

        Try

            cn = New OleDbConnection

            cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\Cantabrico\gpCantabrico\gpCantabrico\calderas.accdb"

            cn.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

  Private Sub btnPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimero.Click

        Try

            fila = 0

            cargaDatos()

            Me.DataGridView1.BindingContext(ds, "cargaCp").Position = 0    'No funciona

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

        Try

            If fila = 0 Then

                MsgBox("Ha llegado al priner registro", MsgBoxStyle.Critical, "Error")

            Else

                fila -= 1

                cargaDatos()

                                                      ' Aqui he probado de cincuenta formas sin conseguir nada

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub