haber necesito repetir este código
elseif Right(rsVac(1),Len(rsVac(1)) - InStr(rsVac(1),"@")) = RSconsulta("Nombre") then
dependiendo del numero de elementos que tenga en mi base de datos, lo he puesto así:
Do While Not RSconsulta.EOF
elseif Right(rsVac(1),Len(rsVac(1)) - InStr(rsVac(1),"@")) = RSconsulta("Nombre") then
RSconsulta.MoveNext
Loop
Pero claro no funciona, pero como coñe se pone esto??'
Un saludo