コメントじゃないのだが

Err.Raise vbObjectError, "GetRecordset()", "クエリが間違ってんぞ、バカめ"

っていうのがあった。