解决rs.absolutepage=-1的问题

在解决`rs.absolutepage=-1`的问题时，可以尝试以下几种方法：
1. 使用`rs.movefirst`将记录指针移动到结果集的第一条记录，然后再使用`rs.movelast`将记录指针移动到结果集的最后一条记录。这样可以获取到结果集的总记录数，并计算出需要移动到倒数第一页时的`absolutepage`值。
```vba
rs.movefirst
rs.movelast
totalRecords = rs.recordcount
pageSize = 10 ' 每页显示的记录数
lastPage = Int(totalRecords / pageSize) + 1 ' 计算出总页数
rs.absolutepage = lastPage ' 移动到最后一页
```
2. 使用`rs.move`方法将记录指针移动到指定位置。可以先获取到结果集的总记录数，并计算出需要移动到倒数第一页时的记录位置，然后再使用`rs.move`将记录指针移动到该位置。
```vba
totalRecords = rs.recordcount
pageSize = 10 ' 每页显示的记录数
lastPagePosition = totalRecords - ((lastPage - 1) * pageSize) + 1 ' 计算出倒数第一页的记录位置
rs.move lastPagePosition ' 移动到倒数第一页
```
3. 在打开记录集时，使用`adOpenStatic`和`adLockReadOnly`作为参数，这样可以将结果集的游标类型设置为静态，以便后续可以使用`absolutepage`属性。
```vba
Set rs = New ADODB.Recordset
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
```
4. 在打开记录集时，使用`adCmdTableDirect`作为参数，这样可以避免使用`absolutepage`属性，而是使用`rs.move`方法来移动记录指针。
```vba
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM YourTable", conn, adOpenStatic, adLockReadOnly, adCmdTableDirect
```
以上是一些常见的解决方法，根据具体的情况选择适合的方法来解决`rs.absolutepage=-1`的问题。