如何在VB.NET中为Acces数据库制作分页的下一个和上一个按钮

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"
Dim connection As New OleDbConnection(connectionString)

Dim selectQuery As String = "SELECT TOP 10 * FROM TableName OFFSET 0"
Dim dataAdapter As New OleDbDataAdapter(selectQuery, connection)

Dim dataSet As New DataSet()
dataAdapter.Fill(dataSet, "TableName")

Dim dataTable As DataTable = dataSet.Tables("TableName")

Dim currentPage As Integer = 0
Dim recordsPerPage As Integer = 10

Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
    currentPage += 1
    Dim offset As Integer = currentPage * recordsPerPage
    Dim selectQuery As String = "SELECT TOP " & recordsPerPage & " * FROM TableName OFFSET " & offset
    dataAdapter.SelectCommand.CommandText = selectQuery
    dataSet.Clear()
    dataAdapter.Fill(dataSet, "TableName")
    dataTable = dataSet.Tables("TableName")
    ' 更新UI显示数据
End Sub

Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
    If currentPage > 0 Then
        currentPage -= 1
        Dim offset As Integer = currentPage * recordsPerPage
        Dim selectQuery As String = "SELECT TOP " & recordsPerPage & " * FROM TableName OFFSET " & offset
        dataAdapter.SelectCommand.CommandText = selectQuery
        dataSet.Clear()
        dataAdapter.Fill(dataSet, "TableName")
        dataTable = dataSet.Tables("TableName")
        ' 更新UI显示数据
    End If
End Sub