Pesquisar na Comunidade

Bom dia Nao estou conseguindo proceguir com o codigo abaixo, a intenção é se existir algum registro na coluna STATUS seja igual a "Aberto" e executa a sub TemRegistro, caso não tenha nenhum registro na coluna STATUS = "Aberto" então ele executa a sub NaoTemREgistro, porem QUANTO tem regitro ele executa certo, mas quando não TEM registro ai ele não faz nada.. não executa a sub NaoTemREgistro... obrigado Sub verificar() Dim conFB As String conFB = "User=sysdba;Password=masterkey;Database=C:\TESTE\BANCOTESTE.FDB;DataSource=localhost;Port=3050;Dialect=3;" Dim connection As FbConnection = New FbConnection(conFB) connection.Open() Dim command As FbCommand = New FbCommand("SELECT * FROM PRODUTOS WHERE STATUS = '" & "Aberto" & "' ", connection) Dim dr As FbDataReader = command.ExecuteReader() While (dr.Read()) If dr.HasRows Then TemRegistro () Else 'caso nao tenha registro deveria executar essa sub mas nao faz nada... NaoTemREgistro () End If End While End Sub