A quien pueda atender mi consulta mil gracias.

CONSULTA

La consulta es como hacer para que cuando se ejecute la rutina de búsqueda

Dim fFind As New Find

fFind. And "SARSD. USUARIO", "=" & LOGINUSERID

CurrentWindow. FindSort fFind "---Ahora cada usuario sólo verá sus registros  

NR = CurrentWindow. CountRecords(AprFoundRecords)

y no se encuentre ningún registro No se ejecute el la línea   Set currentwindow. Activeview = currentdocument. BUSCAR.

  El problema que tengo es que cuando se despliega el cuadro de mensaje que indica que no se ha hallado ningún   registro y me da las opciones SI NO para salir de dicho cuadro, se ejecuta dicha rutina de toda forma, ya sea oprimiendo SI o NO   y se pasa a la vista BUSCAR a la cual solo deseo entrar cuando se hallen registros.

Sub Click(Source As Lotuscommandbutton)

            LOGINUSERID =PASS.USERID.text

            PCNAME = Space(100)

            PCNAMERETVAL = GetComputerName(PCNAME,100)

            PCNAME = Left(PCNAME,(Instr(PCNAME," ")) - 1)

            PASSW = PASS.USERPASS.text

            VALIDUSER = 0

            If LOGINUSERID <>"" Then            

                        LOGINSQL

                        If VALIDUSER = 1 Then

                                   If NUMBERLOGIN = 1 Then

            GENERRORMESSAGE = "Esta es la primera vez que inicia sesión. Por favor, cambia tu Contraseña. "

                                               GENERROR. Show 1   

                                   Else

                                               source.parent.close      

                                               Dim fFind As New Find

                                               fFind. And "SARSD. USUARIO", "=" & LOGINUSERID

                                               CurrentWindow. FindSort fFind "---Ahora cada usuario sólo verá sus registros            

                                               NR = CurrentWindow. CountRecords(AprFoundRecords)

                                               Set currentwindow. Activeview = currentdocument. BUSCAR

                                   End If

                        Else

                                   Exit Sub

                        End If                          

            Else

                        GENERRORMESSAGE = "USUARIO No Debe Estar Vacio"

                        GENERROR. Show 1

            End If              

End Sub

Atentamente,