该代码是放在窗体的全局单击事件中。我用了TabControl来分页查看，但下面的加载条件如果点击了第2个分页，执行不了，就会报错，请高手指点，谢谢！

Dim i As Integer
If Forms("导入记录查询").Controls("TabControl1").SelectedIndex = 0 Then
i= 1
End If
If Forms("导入记录查询").Controls("TabControl1").SelectedIndex = 1 Then
i= 2
End If

Select Case e.Sender.Name
    Case "Label2"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage <> 0 Then
                .LoadTop = 10
                .LoadPage = 0
                .Load()
            End If
        End With
    Case "Label4"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage < .TotalPages - 1 Then
                .LoadPage = .LoadPage + 1
                .Load()
            End If
        End With
    Case "Label3"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage > 0 Then
                .LoadPage = .LoadPage - 1
                .Load()
            End If
        End With
    Case "Label5"
        With DataTables("导入记录查询_Table" & i)
            If .LoadPage < .TotalPages - 1 Then
                .LoadPage = .TotalPages - 1
                .Load()
            End If
        End With
       
    Case "Button2"
        With DataTables("导入记录查询_Table" & i)
            .LoadPage = qq.value- 1
            .Load()
        End With       
End Select

上个例子，直接就能测试、修改。

不然要从头做项目，窗口、控件、表、数据、代码，统统来一遍，费好大周折。