MSHFlexGriduk有关问题：绑定数据库后，分页处理时如果where到无数据记录，下次where有数据也不能选择数据了

MSHFlexGriduk问题：绑定数据库后，分页处理时如果where到无数据记录，下次where有数据也不能选择数据了
请教大虾：
MSHFlexGriduk问题：绑定数据库后，分页处理时如果where到无数据记录，下次where有数据也不能选择数据了，怎么办呢？

Public Function DataGrid(pages, minid, maxid, texs)

Dim hMenu, hSubMenu1, hSubMenu2 As Long

MSHFlexGrid1.ScrollTrack = True

Dim nodeindex, lbn, Page

Call opendata'连接数据库

Set rs1 = CreateObject("ADODB.Recordset")

rs1.CursorLocation = adUseClient

'lbn = "*"

lbn = "id,bmid,xingming,chusheng,bumen,xingbie,minzhu,hunyin,chushengdi,hujidi,jiguan,xueli,biyexx,suoxuezy,biyesj,jisuanji,putonghua,jiaoshizg,gongling,gongzuosj"

lbn = lbn & ",laixiaosj,gongzhuosf,guganjs,zhiwu,zhengzhimm,rudangsj,zuanzhengsj,dangneizw,renjiaoxk1,renjiaoxk2,renjiaoxk3"

lbn = lbn & ",jiaoyuanzu,zuanyezc,zhichengsj,pingrenzc,pingrensj,pingrenqx,shenfenzh,gongzizh,yanglaozh,yibaozh,zhufangzh,gudingdh,soujihao"


If rs1.State = 1 Then rs1.Close '如果打开则关闭

rs1.Open "Select id From bmn order by id asc", conn, 1, 1

rs1.MoveFirst

minids = rs1("id")


rs1.MoveLast

maxids = rs1("id")



Label4.Caption = "共 " & rs1.RecordCount & " 条" '记录集*多少记录

rs1.Close


If rs1.State = 1 Then rs1.Close '如果打开则关闭

Select Case pages

Case 0

'首页:

rs1.Open "Select top 12 " & lbn & " From bmn order by id asc", conn, 1, 1

Set MSHFlexGrid1.DataSource = rs1

If Not rs1.EOF Then

rs1.MoveFirst

Text3.Text = rs1("id")

rs1.MoveLast

Text4.Text = rs1("id")

End If


Case 2

'下一页:

rs1.Open "select top 12 " & lbn & " from bmn where id > " & maxid & " order by id ", conn, 1, 1

Set MSHFlexGrid1.DataSource = rs1

If Not rs1.EOF Then

rs1.MoveFirst

Text3.Text = rs1("id")

rs1.MoveLast

Text4.Text = rs1("id")

End If

------解决思路----------------------
我一贯用的办法是每次查询数据之后检查是否bof=true and eof=true，如果没有数据就不Set MSHFlexGrid1.DataSource=xxx