ajuda com retorno de consulta sql

[rodrigojacinto]

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