If fr IsNot Nothing And fr("是否可用") = True Then
改成
If fr IsNot Nothing AndAlso fr("是否可用") = True Then