Bueno, cambiemos la técnica:
Código:
temp1 = ""
temp2 = ""
While not rs.EOF
If rs("corredor") = var1 Then
temp1 = temp1 & rs("posicion") & "<br>"
ElseIf rs("corredor") = var2 Then
temp2 = temp2 & rs("posicion") & "<br>"
End If
rs.MoveNext
Wend
Y donde va el código para imprimir la tabla sustituye los índices del arreglo por temp1 y temp2
Salu2,