Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ser60
попытался отработать два варианта обработки отсутствия записей в наборе (по отдельности конечно) и ни один не проходит. Помогите разобраться в чем дело?

rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic     If IsNull(rst.RecordCount) Then         CardioSurgicalBeds = 0     Else         CardioSurgicalBeds = Nz(rst![РасчетКоек], 0)     End If ' Open the recordset rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic If Not (rst.BOF And rst.EOF) Then 'такой прием есть у К.Гетца акс2000 1 том      CardioSurgicalBeds = 0     Else     CardioSurgicalBeds = rst![РасчетКоек] End If