lvTextos = Array(txtDurMax.Text, cbRamal.Text, txtDurMin.Text, cbGrupo.Text, cbConta.Text, txtTelefone.Text)
lvCampos = Array("DuracaoMin", "Entidade", "DuracaoMax", "Id_grupo", "Conta_login","NrTelefone")
dim Campo as String
For f = 0 To 5
If lvTextos(f) <> "" Then
If lvCampos(f)="DuracaoMin" then
Campos="Duracao<"
Elseif lvCampos(f)="DuracaoMax" then
Campos="Duracao>"
End If
lvConsulta = lvConsulta + Campos & "='" & lvTextos(f) & "' and "
End If
Next f
Seu select terá que ficar assim:
select * from tabela where Duracao <= txtdurmax.text
select * from tabela where Duracao >= txtdurmin.text