Puedes hacerlo con un bucle Do... While y el método MoveNext para avanzar al siguiente registro a cada iteración. Aunque quizás no sea necesario, ya que puedes obtener directamente el usuario que fue ingresado:
Código vb:
Ver originalsql = "SELECT * FROM usuarios WHERE user='" & txtUserName & "'"
Puedes hacer un control para salir del procedimiento si no se encuentran registros.