Private Sub cmdBuscar_Click()
    'Se hará el conteo de los registros.
    Set Rs = Db.OpenRecordset("Select Count(*) As Conteo From CDRoom Where Titulo CDRoom= '" & txtTituloCDRoom.Text & "'")
        
       Select Case Rs!Conteo    'Dependiendo del número de Registros
                                   'se hará un procedimiento.
                 Case "0"        'En el caso de que no hayan registros, entonces...
                     MsgBox "No se encontró el Registro especificado", 48, "AVISO AL USUARIO"
    Set Rs = Nothing 'Con Esta insrucción vaciamos la variable Rs.
                     Exit Sub
                 Case "1"        'Si solo existe un registro se deshabilitaran los botones, para que navegar??.
                     frmInformeCDRoom.fraNavegador.Visible = False   'Hacemos invisible el FRAME que contiene los botones
                                                               'ya que existe sólo un Registro.
                          frmInformeCDRoom.lblInforme.Visible = True
                               frmInformeCDRoom.Shape1.Visible = True
                                   Set Rs = Nothing    'Con Esta insrucción vaciamos la variable Rs.
                     '
    Set Rs = Db.OpenRecordset("Select *From CDRoom Where Titulo CDRoom = '" & txtTituloCDRoom.Text & "'")
                 '
                 Case Else   'Quiere decir que hay mas de 1 registro entonces ahora si se va a operar loa anterior.
                     frmInformeCDRoom.fraNavegador.Visible = True
                          frmInformeCDRoom.cmdPrimero.Enabled = False
                     frmInformeCDRoom.cmdAnterior.Enabled = False
                 frmInformeCDRoom.lblRegistroII.Visible = True
               frmInformeCDRoom.lblCantidad.Visible = True
             frmInformeCDRoom.lblCantidad.Caption = Rs!Conteo
               frmInformeCDRoom.Shape1.Width = 1630
                 frmInformeCDRoom.Shape1.Visible = True
        Set Rs = Nothing   ''Con Esta insrucción vaciamos la variable Rs.
             

   Set Rs = Db.OpenRecordset("Select *From CDRoom Where Ttulo CDRoom = '" & txtTituloCDRoom.Text & "'")
        End Select
        
        Rs.MoveFirst    'El cursor se moverá al primer registro.
        With frmInformeCDRoom
             .txtTituloCDRoom.Text = Rs.Fields(1)
             .txtEstante.Text = Rs.Fields(5)
             .txtCasilla.Text = Rs.Fields(6)
             .txtValor.Text = Rs.Fields(2)
             .txtCalidad.Text = Rs.Fields(7)
             .txtRegistro.Text = Rs.Fields(0)
        End With
             frmBuscarCDRoom.Visible = False
             txtTituloCDRoom.Text = ""
             frmInformeCDRoom.Visible = True
             frmInformeCDRoom.Show
    

End Sub