把If readrecordset.EOF Then
改为:If readrecordset.EOF and readrecordset.BOF Then