If rs_house.BOF = True Then
MsgBox “对不起，已经是第一条记录了！”， vbOKOnly + vbInformation, “注意”
Exit Sub
’如果不是，则这个数据表的记录位置移到第一条记录，并且显示之 Else
For I = 0 To 7
Text(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If End If End SubPREV