Otel programımda dolu oda ve boş odaları göstermek istiyorum nasıl yapabilirim?

varmi = DCount("oda_no","tbl_rezervasyonlar","oda_no=123")
If varmi >= 1 Then
MsgBox "Oda dolu"
Else
Msgbox "Oda boş"
End If