Cita:
Iniciado por pkj 
por que no creas una sub con todo ese código repetido?
Loginsql list1(0)
loginsql list1(1)
etc...
Código vb:
Ver originalsub loginsql(list as listbox)
login.sql = "select distinct * from requerimiento where numero = '" + login.c4 + "' and sucursal '" + login.c5 + "' and depto = '" + login.c6 + "' and funcionario = '" + login.c7 + "' fecha = '" & dtpicker1.value & "'and estado = '" + login.val + "'"
login.rst.open login.sql, login.cnn, adopendynamic, adlockoptimistic
while login.rst.eof = false
list.additem login.rst(list.index)
login.rst.movenext
wend
login.rst.close
end sub
así reduces código y encuentras mejor los errores.
Suerte
y la condicion??, SON VARIOS IF DISTINTOS, LA VERDAD NO ENTIENDO MUCHO "#
Sub Loginsql(List as Listbox)"