Move focus from one row to other row in datagrid [Resolved]

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")

    Dim con As OleDbConnection = New OleDbConnection(ConnectionString)

    Dim com As OleDbCommand

    Dim oledbda As OleDbDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim str As String

    

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

        Try

            con.Open()

            str = "select * from student"

            com = New OleDbCommand(str, con)

            oledbda = New OleDbDataAdapter(com)

            ds = New DataSet

            oledbda.Fill(ds, "student")

            con.Close()

            dt = ds.Tables("student")

            DataGrid1.ReadOnly = True

            DataGrid1.DataSource = ds

            DataGrid1.DataMember = "student"

            btnenadisi(True)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub



    Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.Click

        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

        DataGrid1.CurrentRowIndex = 0

        DataGrid1.Select(DataGrid1.CurrentRowIndex)

        btnenadisi(True)

    End Sub



    Private Sub btnprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprev.Click

        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

        DataGrid1.CurrentRowIndex -= 1

        DataGrid1.Select(DataGrid1.CurrentRowIndex)

        btnenadisi(True)

    End Sub



    Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click

        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

        DataGrid1.CurrentRowIndex += 1

        DataGrid1.Select(DataGrid1.CurrentRowIndex)

        btnenadisi(True)

    End Sub



    Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlast.Click

        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

        DataGrid1.CurrentRowIndex = dt.Rows.Count - 1

        DataGrid1.Select(DataGrid1.CurrentRowIndex)

        btnenadisi(True)

    End Sub

    Private Sub btnenadisi(ByVal x As Boolean)

        btnfirst.Enabled = x

        btnprev.Enabled = x

        btnnext.Enabled = x

        btnlast.Enabled = x

        btnclose.Enabled = x

    End Sub



    Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click

        Me.Close()

    End Sub

End Class

If this post helps you mark it as answer
Thanks