How to display data excel sheet in userform VBA Using navigation buttons

Dim row_num As Integer

 Private Sub CommandButton2_Click()

row_num = Sheet5.range("A2").End(xlUp).Row + 1

Me.idtxt = Sheet5.Cells(row_num, 1)

load_data

End Sub

Private Sub load_data()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet5")

Dim i As Long

For i = 1 To Sheet5.UsedRange.Rows.Count

If idtxt.Text = Sheet5.Cells(i, 1).Value Then

ftxt.Text = Sheet5.Cells(i, 2).Value

ltxt.Text = Sheet5.Cells(i, 3).Value

sporttxt.Text = Sheet5.Cells(i, 4).Value

pointtxt.Text = Sheet5.Cells(i, 5).Value

Exit Sub

Else

ftxt.Text = ""

ltxt.Text = ""

sporttxt.Text = ""

pointtxt.Text = ""

End If

Next i

End Sub

Private Sub CommandButton3_Click()

If row_num < Sheet5.Cells(Rows.Count, 1).End(xlUp).Row Then

row_num = row_num + 1

Me.idtxt = Sheet5.Cells(row_num, 1)

load_data

End If

End Sub

Private Sub CommandButton4_Click()

If row_num > Sheet5.range("A2").End(xlUp).Row + 1 Then

row_num = row_num - 1

Me.idtxt = Sheet5.Cells(row_num, 1)

load_data

Exit Sub

Else

End If

End Sub

Private Sub CommandButton5_Click()

row_num = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row

Me.idtxt = Sheet5.Cells(row_num, 1)

load_data

End Sub

Private Sub UserForm_Click()

End Sub