sub change_page(page)
	With Form_PageIndex
	if .KeyWord.Value="" then
		.KeyWord.disabled=True
	end if
	if .SearchRange.Value="" then
		.SearchRange.disabled=True
	end if

	.page.value=page
	.submit
	End With
end sub