[Resolvido] Selecionar Todos em droplist

Amigos

Como posso fazer para selecionar TODOS num drop list?

Vejam meu código:

If R8 = "TODOS" then
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado is not null and id_clarify is not null order by data, hora")

Else
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado = '" & R8 & "' and id_clarify is not null order by data, hora")

End If