Montar uma pagina de consultas

Boa tarde, eu não tenho experiência com banco de dados e preciso montar uma pagina para consulta, eu tenho a consulta pronta, mas estatica, ou seja, ela pega tudo. Quero montar uns list menu na pagina e filtrar, mas estou com dificuldade.

Não sei se é melhor começar do 0 ou se posso usar a estrutura já existente apenas incrementando o Where.

eis a consulta pronta

sql = "Select "

sql = sql &" Razao_Social_e_Nome_1.rzs as Razao_Social_Nome_Razao_Social_e_Nome_1,"

sql = sql &" Clientes.cod as Codigo_Clientes,"

sql = sql &" Razao_Social_e_Nome.rzs as Razao_Social_Nome_Razao_Social_e_Nome,"

sql = sql &" Descricao_Pessoas.dsc as Descricao_Descricao_Pessoas,"

sql = sql &" Descricao_Pessoas_1.dsc as Descricao_Descricao_Pessoas_1,"

sql = sql &" Descricao_Pessoas_2.dsc as Descricao_Descricao_Pessoas_2 "

sql = sql &" from"

sql = sql &" cli Clientes, "

sql = sql &" cliPREF Preferencia_Cliente,"

sql = sql &" vend Vendedores, "

sql = sql &" bfj Razao_Social_e_Nome,"

sql = sql &" bfj Razao_Social_e_Nome_1,"

sql = sql &" emp Empresas_do_Sistema,"

sql = sql &" ende Enderecos,"

sql = sql &" dsgBFJ Descricao_Pessoas, "

sql = sql &" dsgBFJ Descricao_Pessoas_1, "

sql = sql &" dsgBFJ Descricao_Pessoas_2"

sql = sql &" where "

sql = sql &" (Clientes.CHVCLI=Preferencia_Cliente.CHVCLI)"

sql = sql &" and (Vendedores.CHVVEND=Preferencia_Cliente.CHVVND)"

sql = sql &" and (Razao_Social_e_Nome.CHVBFJ=Vendedores.CHVBFJ)"

sql = sql &" and (Razao_Social_e_Nome_1.CHVBFJ=Clientes.CHVBFJ)"

sql = sql &" and (Empresas_do_Sistema.CHVEMP=Razao_Social_e_Nome_1.CHVEMP)"

sql = sql &" and (Razao_Social_e_Nome_1.CHVBFJ=Enderecos.CHVBFJ)"

sql = sql &" and (Descricao_Pessoas.CHVDSG=Enderecos.CHVREG)"

sql = sql &" and (Descricao_Pessoas_1.CHVDSG=Enderecos.CHVDSGUF)"

sql = sql &" and (Descricao_Pessoas_2.CHVDSG=Clientes.CHVTIP)"

sql = sql &" and "

sql = sql &" ( "

sql = sql &" ( "

sql = sql &" Empresas_do_Sistema.ftsia ='TESTE'"

sql = sql &" and "

sql = sql &" Clientes.Dt_Inat is null "

sql = sql &" and "

sql = sql &" Enderecos.chvtipend = 2"

sql = sql &" ) "

sql = sql &" ) "

sql = sql &" order by 5 asc, 4 asc, 2 asc, 3 asc, 1 asc "