> SQLだと
> where 
> 性別=男性 and 
> 血液型 in (A,AB) and
> 身長　Between 160 and 180 and
> 体重　Between 50 and 90 and
> 条件 in (条件１,条件３)
> のような記述になると思います。
先の私の提示コードにおいて

Where Fucntion ()
End Function()
の間を
Dim ret = True
ret = ret AndAlso A.性別="男性"
ret = ret AndAlso (A.血液型="A" OrElse A.血液型="AB")
ret = ret AndAlso (A.身長 >= 160 AndAlso A.身長 <= 180)
ret = ret AndAlso (A.体重 >= 50 AndAlso A.体重 <= 90)
ret = ret AndAlso (B.条件 = 条件1 OrElse B.条件 = 条件3)
Return Ret

のような感じにするとよいです。